AD-A202  939 


VIBRATION  AND  BUCKLING  CHARACTERISTICS  . 
OF  COMPOSITE  CYLINDRICAL  PANELS 
INCORPORATING  THE  EFFECTS  OF  A 
HIGHER  ORDER  SHEAR  THEORY 

THESIS 

Peter  E.  Linnemann 
Captain,  USAF 
AFIT/GA/AA/88D-06 


DEPARTMENT  OF  THE  AIR  FORCE 
AIR  UNIVERSITY 

AIR  FORCE  INSTITUTE  OF  TECHNOLOGY 


Wright-Patterson  Air  Force  Base,  Ohio 


DBTRIBUnON  STATEMEMT  A 

Approved  for  public  nleaae; 
TXstributlon  Unlimited 


17  022  ' 


AFIT/GA/AA/88D-06 


VIBRATION  AND  BUCKLING  CHARACTERISTICS 
OF  COMPOSITE  CYLINDRICAL  PANELS 
INCORPORATING  THE  EFFECTS  OF  A 
HIGHER  ORDER  SHEAR  THEORY 

THESIS 


Peter  E.  Linnemeunn 
Captain,  USAF 
AFIT/GA/AA/88D-06 


DTIC 


Approved  for  public  release;  distribution  unlimited 


J 


^  m 


AFIT/GA/AA/88D-06 


VIBRATION  AND  BUCKLING  CHARACTERISTICS  OF  COMPOSITE 
CYLINDRICAL  PANELS  INCORPORATING  THE  EFFECTS 
OF  A  HIGHER  ORDER  SHEAR  THEORY 

THESIS 

Presented  to  the  Faculty  of  the  School  of  Engineering 
of  the  Air  Force  Institute  of  Technology 
Air  University 

In  Partial  Fulfillment  of  the 
Requirements  of  the  Degree  of 
Master  of  Science  in  Astronautical  Engineering 

Peter  E.  Linnemann 
Captain,  USAF 

December  1988 

Approved  for  public  release;  distributicn  unlimited 


I  thank  my  advisor,  Dr.  Anthony  Palazotto  for  helping  me 
complete  this  thesis.  I  also  thank  Steve,  Nort,  Bob,  Rich,  and 
everyone  else  in  the  Bullpen.  They're  all  good  friends  and  a 
smart  bunch  of  guys.  On  the  home  front,  I  thank |p||||||||||^||^^ 

last  year  and  a  half. 

This  thesis  is  part  of  an  overall  research  project  on 
composite  plates  and  shells  sponsored  by  the  Air  Force  Office  of 
Scientific  Research,  Dr  Anthony  Amos,  contract  monitor,  Dr 
Anthony  Palazotto,  principal  investigator. 


Table  al  Cgatants 

*  Page 

Acknowledgements .  ii 

List  of  Figures .  v 

'  List  of  Tables .  vi 

List  of  Symbols . vii 

Abstract .  ix 

'  I.  Introduction  .  1 

Background  .  2 

Objectives  .  4 

Approach  .  5 

'  II.  Theoretical  Development .  7 

Strain-Displacement  Relations .  7 

Anisotropic  Thick  Cylindrical  Shell  Panel  Theory  ,  15 

Equations  of  Motion  and  Boundary  Conditions.  ...  24 

Galerkin  Technique  .  49 

Simply-Support€>d  Boundary  Condition .  55 

Clamped  Boundary  Condition  .  66 

III.  Discussion  and  Results .  79 

Computer  Program  .  79 

Analysis  Performed  .  84 

Laminated  Circular  Cylindrical  Shell  Panel 

Properties .  84 

Galerkin  Method  Convergence .  87 

Comparison  Study  with  Donnell  Solution  .  92 

Transverse  Shear  Deformation  Analysis .  96 

Radius  of  Curvature  Analysis  .  102 

Rotary  Inertia  Analysis .  114 

Transverse  Normal  Stress  Considerations . 115 

IV.  Conclusions . 118 

Appendix  A:  Transverse  Shear  and  Maximum 

h/R  Assumptions .  121 

Appendix  B:  Integration  by  Parts .  125 

Appendix  C:  Integration  Formulas  Used  in 

Generating  Galerkin  Equations  .  127 


Appendix  D:  Computer  Programs 


129 


Page 


Appendix  E:  Generating  the  Galerkin  Equations  .  163 

Bibliography  .  165 

Vita .  167 


V 


t 


iv 


al  Figures 

Figure  Page 

2.1  Shell  Panel  Coordinates  wd  Degrees  of  Freedom.  .  .  8 

2.2  Transverse  Shear  Strain  Models .  10 

2.3  Lamina  Material  Coordinates  .  15 

2.4  Arbitrary  Lamina  Coordinates .  18 

2 .  5  Geometry  of  an  N  Layered  Laminate .  21 

3 . 1  Fundamental  Frequency  Convergence  .  90 

3.2  Critical  Buckling  Load  Convergence .  91 

3.3  Transverse  Shear  vs  Classical  Frequencies  .  99 


3.4  Transverse  Shear  vs  Classical  Buckling  Loads.  .  .  .  100 


3.5  Curvature  Effects  on  Frequency 

Simply  Supported  Boundary,  [0/90] .  104 

8 

3.6  Curvature  Effects  on  Frequency 

Simply  Supported  Boundary,  [t45]  .  105 

s 

3.7  Curvature  Effects  on  Frequency 

Clamped  Boundary,  [0/90]  106 

S 

3 . 8  Curvature  Effects  on  Frequency 

Clamped  Boundary,  [±45] .  107 

S 

3.9  Curvature  Effects  on  Buckling  Load 

Simply  Supported  Boundary,  [±45]  .  Ill 

s 

3.10  Curvature  Effects  on  Buckling  Load 

Clamped  Boundary,  [±45]  .  112 

s 


Table  Page 

3.1  Panel  Stiffness  Elements  (h=1.0  in, [0/90]  )  ...  .  85 

s 

3.2  Panel  Stiffness  Elements  (h=1.0  in, [±45]  ) .  86 

s 

3 . 3  Galerkin  Convergence 

Fundamental  Frequency  (rad/sec)  .  88 

3.4  Galerkin  Convergence 

Critical  Buckling  Load  (Ib/in) .  89 

3.5  Stiffness  Elements  For  the  Reddy  Comparison 

(h=1.0  in,  [0/90]g) .  94 

3.6  Donnell  Frequency  Comparison .  95 

3.7  Classical  Frequency  Comparison .  97 

3.8  Classical  Buckling  Comparison  .  98 

3.9  Parabolic  vs  Mindlin  Shear  Models 

Simply  Supported  Boundary  Condition  .  101 

3.10  Parabolic  vs  Mindlin  Shear  Models 

Clamped  Boundary  Condition . 102 

3.11  Frequency  Coupling  Effects .  108 

3.12  Buckling  Load  Coupling  Effects .  113 

3.13  Buckling  Loads  for  [0/90]  Laminates .  113 

s 


Lis-b  of  Symbols 


A  ,B  ,  C  .E  ,G 
am  am  mn  mn  mn 


ij 


j 

E. 

1 

c  ,e  ,c 
X  y  z 

iP 

mn 

®12'S3’®13 

y  y  y 
'xy'  yz’  xz 


li.ii.i  1 


V. 


I^i  *  S  j 


ffl,  n 


M,N 


M. 


Length  in  x  direction 

Constant  Coefficients  in  Admissible 
Functions 

Extensional  Stiffness  Terms 
Circumferential  Length  in  y  Direction 
Coupling  Stiffness  Terms 
Bending  Stiffness  Terms 

Higher  Order  Stiffness  Terms 
Young’s  Modulus  in  the  ith  Direction 
Normal  Strains  in  x,  y,  and  z  directions 
Generalized  Admissible  Functions 
Shear  Modulus  in  1-2, 2-3, and  1-3  planes 
Shear  Strains  in  x-y,y-z,  and  x-z  planes 
Laminate  thickness 
Mass  Moments  of  Inertia 

Mid  Surface  Degree  of  Freedom:  Rotation  of 
Cross  Section  about  x  axis 

Mid  Surface  Degree  of  Freedom:  Rotation  of 
Cross  Section  about  y  axis 

Constant  =  -4/(3h^) 

Mid  surface  Curvature  Term 

Higher  Order  Resultant  Quantities 

Summation  Indicies  that  Generate  the  Number 
of  Terms  per  Galerkin  Equation 

Summation  Limits  for  Generating  Galerkin 
Equations 

Moment  Resultants 


vii 


Force  Resultants 

Buckling  Loads  in  x,y,  and  x-y  directions 
Poisson’s  Ratio 

Summation  Indicies  that  Generate  the  Number 
of  Galerkin  Equations 

Reduced  Stiffness  Terms 

Transformed  Reduced  Stiffness  Terms 

Fiber  orientation  angle  of  ply  k 

Radius  of  Curvature 

Mass  Density 

Compliance  Terms 

Normal  Stress  in  x  and  y  directions 

Thickness  of  ply  k 

Time 

Kinetic  Energy 

Shear  Stress  in  x-y,x-z,y-z  Planes 
Mid  Surface  Displacement  in  x  direction 
Displacement  ir  x  direction 
Strain  Energy 

Mid  Surface  Displacement  in  y  direction 
Displacement  in  y  direction 
Potential  Energy 
Displacement  in  z  direction 
Frequency  of  Vibration 


AFIT/GA/AA/88D-06 


1 


C 


t 


Abstract 

An  analytical  study  is  conducted  to  determine  the 
fundamental  frequencies  and  critical  buckling  loads  for 
laminated  anisotropic  circular  cylindrical  shell  panels, 
including  the  effects  of  transverse  shear  deformation  and  rotary 
inertia,  by  using  the  Galerkin  technique.  A  linearized  form  of 
Sander's  shell  strain-displacement  relations  are  derived,  which 
include  a  parabolic  distribution  of  transverse  shear  strains. 
The  theory  is  valid  for  laminate  thickness  to  radius  ratios, 
h/R,  of  up  to  1/5.  Higher  order  constitutive  relations  are 
derived  for  the  laminate.  A  set  of  five  coupled  partial 
differential  equations  of  motion  and  boundary  conditions  are 
derived  and  then  solved  using  the  Galerkin  technique.  Simply 
supported  and  clamped  boundary  conditions  are  investigated. 

The  Galerkin  method  is  tested  for  convergence  to  exact 
solutions.  Comparisons  with  Donnell  shell  solutions  are 
conducted.  The  effects  of  transverse  shear  deformation  and 
rotary  inertia  are  examined  by  comparing  the  results  with 
classical  solutions,  where  applicable.  The  radius  of  curvature 
is  varied  to  determine  the  effects  of  membrane  and  bending 
coupling. 

It  is  found  that  the  Galerkin  technique  converges  for  all 
panel  configurations  investigated;  additionally,  it  is  found 
that  buckling  problems  need  more  terms  in  the  approximations 
than  vibration  problems  to  obtain  proper  convergence.  The  theory 

ix 


compares  exactly  with  the  Donnell  solutions,  which  are  valid  up 
to  h/B  =  1/50.  As  expected,  as  length  to  thickness  ratios  are 
reduced,  shear  deformation  effects  significantly  lower  the 
natural  frequencies  and  buckling  loads.  Analysis  also  shows 
that  rotary  inertia  effects  are  very  small.  Finally,  as  h/R  is 
varied  from  0  (flat  plate)  tc  1/5  (maximum  limit),  the 
frequencies  and  buckling  loads  increase  due  to  membrane  and 
bending  coupling. 


VIBRATION  AND  BUCKLING  CHARACTERISTICS  OF  COMPOSITE 
CYLINDRICAL  PANELS  INCORPORATING  THE  EFFECTS 


OF  A  HIGHER  ORDER  SHEAR  THEORY 


I.  INTRODUCTION 


Advanced  composite  materials,  so  named  due  to  their  high 
strength  and  stiffness  to  weight  ratios,  are  seeing  widespread 
use  in  many  diverse  industries.  One  of  these  is  the  aerospace 
industry,  where  complex  shell  configurations  are  common 
structural  elements.  Structural  elements  consisting  of 
composite  materials  offer  unique  advantages  over  those  made  of 
traditional  isotropic  materials  in  that  properties  can  be 
tailored  to  meet  specific  design  goals.  Optimization  of 
properties  through  tailoring  can  reduce  the  overall  weight  of  a 
structure,  since  stiffness  and  strength  are  designed  only  where 
they  are  required.  A  lower  weight  structure  translates  into 
higher  performance.  (8) 

Because  of  the  potentially  large  spatial  variations  of 
stiffness  properties  in  these  composite  shell  structures  due  to 
tailoring,  three  dimensional  stress  and  strain  effects  become 
very  important.  Whereas  classical  two  dimensional  assumptions 
may  be  valid  for  an  identical  shell  structure  consisting  of 
isotropic  materials,  they  may  lead  to  gross  inaccuracies  for  an 


orthotropic  construction.  (8) 

To  ensure  a  structurally  strong  and  stable  product,  the 
designer  needs  to  know  the  buckling  and  vibration 
characteristics  of  the  structural  elements,  along  with  other 
important  properties.  Cylindrical  shell  panels  are  a  common 
shell  configuration  in  aerospace  structural  applications  and  are 
one  of  the  few  shell  elements  that  may  be  analyzed  analytically, 
rather  than  resorting  to  a  finite  element  numerical  approach. 

In  light  of  the  above,  this  thesis  focuses  on  the 
fundamental  natural  frequencies  of  vibration  and  the  critical 
buckling  loads  of  composite  circular  cylindrical  shell  panels 
including  the  following: 

1.  Linear  displacement  and  rotations,  and  linear  elastic 
behavior  of  cylindrical  shells  and  flat  plates. 

2.  Parabolic  transverse  shear  strain  and  stress  modeling. 

3.  Bifurcation  buckling  analysis. 

4.  Harmonic  vibration  analysis  excluding  transients. 

5.  Analytical  solution  method  using  the  Galerkin  technique. 

BACKOROUhg) 


There  have  been  many  contributors  to  the  research  of  this 
thesis.  This  section  will  briefly  address  previous  work  related 
to  this  research  in  an  approximate  order  of  what  occurred 
historically.  I 

Past  research  has  clearly  indicated  the  need  to  refine  the 
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classical  Kirchhoff-Love  shell  'theories  to  better  predict  the 
stability  and  dynamic  responses  of  composite  cylindrical  shell 
configurations.  The  Kirchhoff-Love  theory  assumes  normals  to 
the  shell  mid  surface  before  deformation  remain  normal  after 
deformation,  effectively  neglecting  transverse  shear  strains. 
These  classical  theories  predict  shell  panels  that  are  too 
stiff,  resulting  in  high  frequencies  and  buckling  loads.  L.H. 
Donnell  applied  the  Kirchhoff-Love  theory  to  shallow  cylindrical 
shell  panels. 

The  need  to  include  transverse  shear  effects  was  first 
recognized  by  Reissner  (18),  followed  by  Mindlin  (12)  who 
included  rotary  inertia  effects  in  the  dynamic  analysis  of 
plates.  The  Reissner-Mindlin  theory  assumes  the  cross  section 
remains  plane,  but  is  allowed  to  rotate  from  the  normal  with 
respect  to  the  mid  surface  after  deformation.  Extra  independent 
degrees  of  freedom  are  included,  which  enables  the  transverse 
shear  to  be  fully  described  by  the  shell  mid  surface  degrees  of 
freedom  and  the  thickness  coordinate.  This  first  order  theory 
does  not  satisfy  the  boundary  conditions  of  zero  transverse 
shear  on  the  top  and  bottom  surfaces  of  the  laminate  because  of 
the  constant  shear  angle  assumed.  The  introduction  of  a 
correction  factor  helps  to  alleviate  this  problem. 

Reddy  (15),  (17)  and  Soldatos  (21)  have  recently  applied  a 
so  called  parabolic  through  the  thickness  shear  strain 
distribution  to  analyze  laminated  anisotropic  plates  and  shells. 
The  in-plane  displacements  are  cubic  functions  of  the  thickness 


3 


& 


coordina'te>  sa'tisfying  zero  'transverse  shear  s'train  boundary 
conditions  on  the  top  and  bottom  surfaces  of  the  laminate.  The 
same  independent  degrees  of  freedom  as  used  in  Reissner-Mindlin 
theory  are  used  here,  but  the  need  for  a  correction  factor  is 
eliminated. 

It  is  this  higher  order  trcuisverse  shear  theory  upon  which 
the  strain-displacement  relations  for  this  thesis  are  based. 


OBJECTIVES 


c 


c 


1 


There  are  four  main  objectives  to  this  thesis.  First  is 
the  development  of  a  higher  order  set  of  linear  strain 
displacement  relations  for  the  cylindrical  panel  that 
incorporate  parabolic  transverse  shear.  The  relations  could  bo 
regarded  as  a  linearized  form  of  Sanders  equations,  applicable 
to  deep  panels  (almost  complete  cylinders).  The  theory  is  not 
limited  to  shallow  panels  as  is  Donnell  theory.  (1)  The  strain 
displacement  relations  result  in  higher  order  constitutive 
relations  for  the  panel.  The  second  objective  is  the  analytical 
solution  for  the  fundamental  frequencies  and  critical  buckling 
loads  of  the  cylindrical  panel  for  different  geometries  and 
boundary  conditions.  Third,  the  method  will  be  used  to  analyze 
the  effects  of  shear  deformation,  rotary  inertia,  and  radius  of 
curvature.  Intrinsic  in  this  analysis  is  the  determination  of 
the  maximum  thickness  to  radius  ratio  allowed  under  the 
conditions  of  assuming  zero  transverse  normal  stress.  And 
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fourthly,  verification  of  the  results  by  comparison  with  other 
approximate  methods  and  classical  methods,  %diere  applicable. 

APPROACH 


A  logical  approach  is  taken  to  complete  this  thesis.  The 
displacement  field  for  the  anisotropic  circular  cylindrical 
panel,  that  is  a  function  of  the  mid  surface  degrees  of  freedom, 
is  developed  based  upon  Reddy's  (15),  (16)  ,(17)  and  Soldatos' 
(21)  parabolic  transverse  shear  strain  model.  Linear  orthogonal 
curvilinear  coordinates  from  Saada  (19)  are  used  to  derive  the 
strain  displacement  relations.  These  relations  include  higher 
order  terms,  applicable  to  the  analysis  of  deep  panels.  Basic 
principles  from  Jones  (9)  are  used  to  develop  the  higher  order 
constitutive  relations  for  the  laminate.  The  kinetic  energy, 
strain  energy,  and  potential  energy  are  each  separately  derived 
using  principles  from  (11),  (20),  (5),  and  (7).  Hamilton's 
principle  is  applied  to  extract  the  equations  of  motion  and 
boundary  conditions,  which  are  then  solved  using  the  Galerkin 
technique. 

To  solve  the  equations,  the  degrees  of  freedom  are 
approximated  by  admissible  functions:  those  that  satisfy 
geometric  boundary  conditions.  The  Galerkin  equations  are 
generated  with  the  aid  of  MACSYMA  (25)  by  substituting  the 
admissible  functions  into  the  equations  of  motion  and  boundary 
conditions.  A  Fortran  program  is  written  which  formulates  the 
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eigenvalue  problem  from  the  Galerkin  equations.  The  program 
yields  the  desired  natural  frequencies  and/or  buckling  loads  and 
their  corresponding  eigenvectors  for  a  particular  input 
geometry,  ply  layup,  and  boundary  condition.  Simply  supported 
and  clamped  boundaries  are  analyzed. 

Results  are  compared  with  other  approximate  solutions  and 
classical  solutions,  where  available.  Also,  to  ensure  valid 
results,  the  Galerkin  technique  is  tested  for  convergence,  and 
transverse  normal  stress  effects  are  analyzed. 


) 


I 
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II.  THEORETICAL  DEVELOPMENT 


The  first  step  in  the  theoretical  development  for  this 
thesis  is  the  derivation  of  the  displacement  field  based  upon  a 
through  the  thickness  parabolic  transverse  shear  strain 
distribution  of  the  laminate.  The  LINEAR  orthogonal  curvilinear 
coordinate  strain-displacement  relations  will  then  be  derived. 
Next,  anisotropic  thick  cylindrical  shell  panel  theory  will  be 
discussed.  From  there,  the  kinetic  energy,  strain  energy,  and 
potential  energy  due  to  external  forces  will  be  derived  and  used 
in  Hamilton's  principle  to  formulate  the  equations  of  motion  and 
boundary  conditions  for  the  panel.  Finally,  Galerkin’s 

technique  will  be  applied  to  approximate  the  differential 
equations  of  motion  and  boundary  conditions.  Galerkin's 
technique  will  be  used  for  two  different  boundary  conditions: 
all  sides  simply  supported  and  all  sides  clamped. 

STR/JN-OISPLACEMENT  RELATIONS 

The  coordinate  system  for  the  circular  cylindrical  shell 
panel  and  the  degrees  of  freedom  to  be  used  in  the  theory  are 
shown  in  Figure  2.1.  The  x  and  y  axes  are  located  at  the  mid 
surface  of  the  laminsiic  (z  =  0).  The  degrees  of  freedom 

u^(x,y, t),  v^(x,y,t),  and  w(x,y,t)  are  the  laminate  mid  surface 
displacements  in  the  x,  y,  and  z  directions,  respectively.  The 
degrees  of  freedom  W  (x, y,t)  and  V„(x,y,t)  are  the  rotations  of 

X  Jr 

the  laminate  cross  section  from  the  normal  at  the  mid  surface 


with  respect  to  the  x  and  y  axes,  respectively.  R  is  the  radius 
of  curvature,  h  the  laminate  thickness,  a  the  length  in  the  x 
direction,  and  b  the  length  in  the  y  direction. 


Figure  2.1  Shell  panel  coordinates  and  degrees  of  freedom 

In  order  to  determine  the  displacement  field,  the 

transverse  shear  strains,  and  need  to  be  modeled.  In 

xz  yz 
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classical  laminated  shell  theory,  through  the  thickness  shear 
deformation  is  neglected  according  to  the  Kirchhoff  Love 
hypothesis  that  plane  cross  sections  remain  plane  and 
perpendicular  to  the  laminate  mid  surface  after  deformation.  A 
displacement  field  that  is  a  first  order  function  of  z  is 
required  in  classical  shell  theory.  Bowlus  (3), (4)  and  Palardy 
(13)  in  their  flat  plate  work  modeled  transverse  shear  strain 
using  Mindlin  plate  theory,  which  also  required  the  use  of  a 
first  order  displacement  field.  Mindlin  plate  theory  assumes 
the  cross  section  remains  plane,  but  is  allowed  to  rotate  from 
the  normal  with  respect  to  the  mid  surface  after  deformation. 
The  assumption  of  no  cross  sectional  warping  introduces  error, 
especially  at  the  top  and  bottom  surfaces  of  the  laminate,  since 
the  model  does  not  match  the  boundary  conditions  of  zero 
transverse  shear  strain  there.  This  error  is  reduced  by  the 
introduction  of  a  shear  correction  factor.  This  thesis  models 
transverse  shear  strain  parabolically  wherein  the  strains  are 
maximum  at  the  laminate  mid  surface  and  are  zero  at  the  top  and 
bottom  surfaces,  satisfying  the  boundary  conditions.  Figure  2.2 
illustrates  the  transverse  shear  concepts  discussed  above. 

To  achieve  the  desired  parabolic  transverse  shear,  a  higher 
order  displacement  field  is  required,  as  apposed  to  the  first 
order  displacement  field  used  in  the  Classical  and  Mindlin 
cases.  The  coordinate  displacements  in  the  x  and  y  directions, 
u  and  v,  will  be  cubic  functions  of  z;  the  displacement  in  the 
z  directicn,  w,  will  be  constant  with  respect  to  z.  From  Reddy 
(16)  and  Saada  (19),  the  generalized  displacement  field  is: 
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(2.  1) 


where  ^2*  chosen  to  satisfy  the  boundary 

conditions  of  zero  transverse  shear  strain  at  the  laminate  top 


BEFORE  DEFORMATION 


AFTER  DEFORMATION 

Kirchhoff 


M  i  n  d  I  in 


P  a  r  a  b  o  I  i  c 


Figure  2.2  Transverse  Shear  Strain  Models 


A 


and  bottom  surfaces. 


Linear  orthogonal  curvilinear  coordinates  are  used  to 
develop  the  strain-displacement  relations.  (14), (19)  For  a 
circular  cylindrical  shell  panel  these  relations  reduce  to: 


«  =  u. 


«  = 


T7^  [''■y  *  -E-) 


xy 


yz 


xz 


1  + 


'"'y  "'•x 


(2.2) 


where  (  ),^  represents  partial  differentiation  with  respect  to  x 

and  so  on.  «  is  assumed  equal  to  zero.  This  implies  that  a 

change  in  length  in  the  normal  (z)  direction  of  a  cross  section 

perpendicular  to  the  mid  surface  is  not  considered,  and  is 

regarded  as  an  accepted  inconsistency  in  plate  and  shell  theory. 

In  reality,  is  not  zero,  but  is  small  compared  to  the  other 

strains.  For  the  laminate,  it  means  there  are  discontinuities 

in  e  at  the  lamina  boundaries,  but  they  too  are  small, 
z 

The  Donnell  cylindrical  shell  panel  equations  assume  — g-%0 
in  Eq  (2.2).  As  shown  in  Eq  (2.33a)  later  in  this  chapter,  this 
assumption  limits  Donnell  theory  to  be  valid  only  for  small 
ratios.  With  no  transverse  shear,  the  maximum  h/R  limit  under 
Donnell  assumptions  is  approximately  1/500.  (23)  As  will  be 
shown,  with  transverse  shear  included,  the  Donnell  equations  are 
valid  up  to  h/R  equal  to  approximately  1/50.  (16) 
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For  simplicity  this  thesis  assumes  — ^  =  0  for  the 

transverse  shear  strains,  y  and  y  ,  only.  (The  limitations 

yz  xz 

of  the  model  resulting  from  these  simplifications  are  discussed 


in  Appendix  A.  )  For  the  membrane  strains  s  ,  e  ,  and  Y "the 

X  Jr  Xjr 

following  polynomial  expansion  is  made: 

1 


1  + 


z 

K 


1  - 


z 

R 


This  approximation  allows  the  strain-displacement  relations  to 
be  valid  for  deep  panels,  with  an  — ^  maximum  limit  of 
approximately  1/5.  (See  Dennis  (8)  and  Appendix  A. )  The 
transverse  shear  strains  in  Eq  (2.2)  become: 


^'yz  =  ^'z  ^  ''•y 
^xz  =  ‘^'z  ^  '^’x 


V 

R 


If  one  sets  y„„(x, y, ±h/2, t)  =  0  and  y„„(x, y, ±h/2, t)  =  0  to 

yz  xz 

satisfy  the  laminate  surface  boundary  conditions,  then  from  Eq 
(2.1)  it  can  be  shown  that  (see  Appendix  A): 

^1  =  ^2  =  0 

®1  =  k(¥/jj  '''x^  ’  ®2  "  ^  '''y^ 

4 

where  k  =  -  - s—  .  The  displacement  field  then  becomes: 

ZhT 

3 

u(x,y,  z,t)  =  +  zv'jj  +  z  ^^^x  '''x^ 

v(x,y,  z,t)  =  [l  +  ““^y  ^  ^  '''y^ 

w(x,y,  z,  t)  =  w  (2. 3) 

Using  this  displacement  field  in  Eq  (2.2),  the 
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strain-displacement  relations  become 


c  =  u  +  ZV'  +  z  k(v  +  w,  ) 
X  O.X  X,  X  X,  X  'xx 


W  12  3 

«  =  V  +  — s-  +  zv  ~  —5—  2  V*  +  z  kCv  +  w,  ) 

y  o,y  R  y,  y  R  y,  y  y.  y  yy 

-  *  “'yy* 

*^xy  “  ^o,y  *  ^o,x  *  *(''*x,y  *  '^y,x  *  2B  x  ”  ^o,y0 

12  3 

>  -  —5—  z  w  +  z  k(v'  +  V  +  2w,  ) 

R  X,  y  x,  y  y,x  xy 


z^kCv'  +  w,  ) 

R  X,  y  *xy 


''ya  =  *y  *  '“'y  *  <'"y  *  ''■y* 


»'xz  =  *'x  *  "-X  *  -f  «,^  ) 


(2.4) 


Shorthand  notation  can  be  introduced  to  rewrite  the 
strains  as  follows: 


•  ' 

r  0  1 

f  X 

n 

•  • 

2  ' 

•  • 

e 

e  ° 

w 

K 

0 

X 

0 

x 

X 

X 

X 

0 

0 

1 

2 

a 

c 

e 

N 

K 

X 

X 

y 

y 

y 

y 

y 

y 

0 

0 

.  2 

t 

3 

2 

4 

a 

Y 

Y 

+  z- 

K 

’  +  z 

K 

■  +  z  ■ 

X 

+  z  - 

X 

xy 

xy 

xy 

xy 

xy 

xy 

Y  .» 

■< 

0 

0 

1 

X 

0 

0 

yz 

yz 

y* 

Y 

Y  ° 

0 

t 

K 

0 

0 

1  xzj 

L  XZ  J 

•  « 

XX  J 

1.  a 

h  a 

(Note  the  superscripts  on  the  n  terms  are  not  exponents.  They 
are  for  identification  purposes  only  and  simply  distinguish 


13 


among  the  high  and  low  order  curvature  terms. )  The  strains  at 
the  laminate  mid  surface  are: 


] 

%.x 

0 

>1 

V) 

^o.y 

►  =  » 

%.y 

+  V 

o.x 

'•y/ 

V'y 

w, 

y 

w, 

X 

(2.6) 


and  the  curvature  terms  (k)  due  to  bending  and  shear  deformation 
are  defined  as  follows: 


¥ 

X,  X 


.¥  +  V  + 

L  X,  y  ^y,  X 


1 

2R 


(V 


o.x 


u 


o,y 


) 


-  *'x.y 

akCVy  +  w,y) 

3k(w  +  w,^) 


ANISOTROPIC  THK:K  CYLINDRICAL  SHELL  PANEL  THEORY 


Lamination  theory  incorporates  constitutive  relationships 
for  an  orthotropic  lamina  through  the  shell  panel  thickness 
resulting  in  expressions  which  approximate  force  resultants  in 
terms  of  displacement  functions.  This  theory  provides  concepts 
which  are  required  in  the  subsequent  development  of  the 
equations  of  motion  and  boundary  conditions.  The  constitutive 
relationships  are  developed  for  the  basic  building  block,  the 
lamina,  to  the  end  result,  the  structural  laminate.  The  end 
results  of  this  section  are  the  laminate  stiffness  terms  and 
force  resultants. 

The  plane  stress  constitutive  relationships  for  a  single 
orthotropic  layer  in  the  principle  coordinate  system  shown  in 
Figure  2.3  are 


Figure  2.3  Lamina  Material  Coordinates 


5 


0 


{ a = 


Note  that  0-^  =  0  for  plane  stress. 


(2.8) 


That  is,  the  individual 


laminae  are  considered  to  be  thin  enough  that  the  average  value 


of  across  the  thickness  is  negligible. 


The  S.  .  are 

•  w 


compliance  terms  and  may  be  written  in  terms  of  the  lamina 
engineering  constants  as : 


®55  ■  G^3  (2.9) 

where  E.  are  Young's  moduli  in  the  ith  direction,  w  is 

X  X  J 

Poisson's  ratio  for  transverse  strain  in  the  jth  direction  when 
stressed  in  the  ith  direction,  and  G.  .  is  the  shear  modulus  in 
the  i-j  plane. 

Equation  (2.8)  may  be  inverted  to  give  the  relationship  of 
the  stresses  in  terms  of  the  strains: 


16 


where  Q.  .  are  the  reduced  stiffness  terms  and  are  defined  as: 
1  J 


11 

1  -  “'12‘'21 
‘'12'^2 

12  " 

1  - 

■  ‘'l2‘'21 

'22  ■ 

■  ‘^12*^21 

'66  ~ 

^12 

'44  “ 

®23 

'55  “ 

Si 

1  -  ‘'12‘'21 


'SS  ■  ”31  (2.11) 

A  structural  laminate  consists  of  N  laminae  oriented  at 
different  angles  with  respect  to  each  other.  The  previous 
constitutive  relations  apply  only  to  Figure  2.3  where  the 
lamina-fixed  1-2  axis  system  is  aligned  with  the  laminate  (or 
global)  x-y  axis  system.  If  the  1-2  axis  system  is  not  aligned 
with  the  x-y  axis  system  but  rather  is  at  an  angle  e  (see  Figure 
2.4),  the  reduced  stiffness  matrix,  [Q.  •],  must  be  transformed. 


p 


Figure  2.4  Arbitrary  Lamina  Coordinates 

The  transformation  matrices  applied  to  the  stiffness  terms  in  Eq 
(2.10)  to  reflect  the  shift  in  the  laminae  axes  are  defined 
below: 


■«11 

«12 

0  ■ 

■ 

s2 

• 

-2c8 

For 

^2 

®22 

0 

,  T  = 

c2 

2cs 

0 

0 

^66 

cs 

-cs 

2  2 
c  -  s  , 

For 

®44 

0  ■ 

,  T 

[•  -1 

0 

Ss 

L  s 

=  J 

where  c  =  cos(0)  and  s  =  sin(0). 

The  transformed  reduced  stiffness  matrices  then  become: 
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From  (9),  'the  lamina  const.! tut. ive  relationships  can  now  be 
expressed  in  laminate  coordinates  as: 


where  k  denotes  the  lamina  and  the  individual 

computed  as : 


(2. 12) 


are 


®11  ”  •••  2(Qj^2  *  2Qgg)sin^0cos^©  +  QggSin^© 

§12  =  +  Q22  ~  4Qgg)sin^©cos^0  +  cos^e) 

®22  “  QjjSin^©  +  2(Q^2  2Qgg)sin^©cos^©  +  ©22*^°®^® 

®16  "  “  ®12  ~  2Qgg)sinecos^e  +  (Q^g  -  Qgg  +  2Qgg)sin^ecose 

®26  "  ^®11  “  ®12  ”  2Qgg)sin^ecos©  +  (Qj^g  “  ®22  2Qgg)sin©cos^e 

®66  ~  *  ®22  ~  ^®12  “2Qgg)sin^©cos^©  +  Qgg(sin^©  +  cos^0) 

®44  =  «44°°®^® 

®45  ■  ^®44  "  Q55)cos©sin© 

®55  ""  (2.13) 


Finally,  substituting  the  expressions  for  the  strains  in  Eq 
(2.5)  into  the  constitutive  relations  in  Eq  (2.12),  the  stress 
in  the  lamina  of  the  structural  laminate  is  expressed  as: 


f  T 

y® .  = 


(  (r  \  f*«  I  1 

O  +  Z  1  I 

y  N  I 

.  .  XZ  .  .  **  J  , 


(2.14) 


The  resultant  forces  and  moments  and  the  higher  order 
resultant  quantities  acting  on  the  laminate  are  obtained  by 
integrating  the  stresses  in  each  lamina  through  the  laminate 
thickness.  Thus,  for  the  laminate  with  N  laminae  shown  in 
Figure  2. 5 


2 


Layer  Number 

a 

I 

J 

Mid  Surface 

j 

1 

Figure  2.5  Geometry  of  an  N  layered  laminate 

the  resultant  forces  and  moments  and  higher  order  quantities 
are: 


Ng  -,  -Mg., 


®6.  .^6  .^6 


=  J 


h/2 

-h/2 


oTy  H  1, 2,  z^,  z^,  z^)dz 


N  _  ‘^x 

~  S'  [  ^  ( 1*  2^,  z^,  z^)dz 

fel  ^  ’“k-l  ^ 

xyJk 


»  H  =  C  H £  n:  M 


(l,z‘>dz 
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where  {N^}  and  {Qj^}  are  the  resultant  forces,  are  the 
resultant  moments,  and  {S^},  {L.>,  and  {R^}  are  the  higher 
order  quantities  resulting  from  the  higher  order 
strain-displacement  relations. 

By  substituting  Eq  (2.14)  into  Eq  (2.15),  thereby 
expressing  the  stresses  in  terms  of  the  mid  surface  displacement 
quantities  and  the  transformed  reduced  stiffness  matrices,  the 
integration  is  simplified  because  the  mid  surface  values  are 
independent  of  z  and  can  come  out  of  the  integral  and  summation 
signs.  (9)  This  allows  the  following  notation  to  be  adopted  for 
the  integrated  laminate  stiffness  matrices: 


(A.  .,  B.  .,  D.  .,  E.  .,  F.  .,  G.  .,  H.  .,  I.  .,  J.  .)  = 
'  10’  10  10  10  IJ  10  10  10  10 


N 

I 

k=l 


«11 

«12 

®16 

CM 

®22 

®26 

Qi6 

®26 

®66 

J 


z 


k  2  3  4  5  6  7  8,, 

(l,z,z  ,z  ,z  ,z  ,z  ,z  ,z  )dz 


'k-1 


Jk 


i ,  0  =  1,2,6 


For  the  transverse  shear: 


'’ij'  '’ij>  =  I 


N 

I 

1^1 


Q 

Q 


44 

®4!) 

45 

«55 

'k  2  4 

(l,z‘^,z^)dz 

'k-1 


i,0  =  4,5 


(2. 16) 


Now  Eq  (2.15)  may  be  written  as: 


22 
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EQUATIONS  OF  MOTION  AND  BOUNDARY  CONDITIONS 


The  displacement  field,  strain  displacement  relations,  and 
the  laminate  resultant  quantities  in  Eq  (2.17)  will  now  be  used 
in  the  energy  formulation  to  find  the  equations  of  motion  and 
boundary  conditions. 

The  fundamental  equation  used  in  this  development  is 
Hamilton's  Principle; 


6T  -  6U  -  6V 


] 


dt  =  0 


(2.  18) 


where 


T  =  kinetic  energy 

U  =  strain  energy 

V  =  potential  energy  due  to  external  forces,  and  6  is  the 
first  variation.  This  section  will  be  devoted  to  the  derivation 
of  the  kinetic  energy,  strain  energy,  and  potential  energy,  and 
finally  to  the  application  of  Hamilton's  principle.  The  result 
will  be  five  coupled  partial  differential  equations  of  motion 
plus  their  associated  boundary  conditions. 

The  kinetic  energy  for  the  structure  is  defined  as 


T  =  f  r  J  4-p(  jdzdxdy 

*^0  "^0  *^-h/2 

where  p  is  the  mass  density  (11),  (20). 

Taking  the  partial  time  derivatives  of  the 


(2.19) 


midplane 


displacements  and  squaring,  the  following  is  obtained: 

=  u  ^  +  (2z  2kz^)u  w  +  2kz^u  w,  +  (z^  +  2kz^  +  k^z®)w  ^ 
o  o  X  ox  X 

+  (2kz'*  +  2k^z®)v'j^w,  ^  +  k^z®w, 

*  24-)  V  *  2kz3)v^,.y*  2(1  *  -l-jkz^v^w.^ 

.2  4  ,26. -2  4  «,  26,-‘  ,26-  2 

+  (z  +  2kz  4-  k  z  )w  +  (2kz  +  2k  z  )¥*  w,  +  k  z  w, 

J'  tf  if  tf 

•2  _  2 

(2.20) 


By  substituting  Eq  (2.20)  into  Eq  (2.19)  and  making  the 
following  definitions  for  the  mass  moments  of  inertia: 


(Ij.I2.I3.I4.I5.I7)  =  f  ^^%(l.z.z^.z®,z^,z®)dz 

'^-h/2 


^1  "  R  ^2 

12=12+  kl4 

^2  “  ^2  ^  ~R~^3  *  ^^4  ^  ~R~^5 
^3  =  -^^4 

^3  ”  ~^^4  l"^5 

14=13+  2kl5  +  k2l7 

Tg  =  -kig  -  k^I.^ 


(2.21) 


Eq  (2.19)  becomes: 


^  =  n  r  -  2T3%''-x  *  -  2l5V- 

0  0 


+  k^I„w.  ^  +  l/v^^  +  21^  V  V>  -  2I„  V  w, 

fX  xO  ^  ^  *p  <  ^  ■ 


2  ''o^y 


La  ▼  W  a 

3  o  y 


+  -  ^Is^yW.y  +  k^I^w,y^  +  Ijw^jdxdy  ^g. 


22) 


Taking  the  first  variation  and  collecting  terms  gives 
the  following  result: 


aT  =  I  f  [dji^  +  -  l3i.,^)au^  ♦  (igU^  +  -  ijL, 

0  0 


)6y/ 

X  X 


*  <-*3^  *s'^x  *  *  ^a'^'y  ' 


*  <*2  ’o  *4''y  '  *  ‘-*3  ’'o  -  Vy  *  *=  l7''-y>'®"’y 


+  I 


j^wSwjdxdy 


(2.23) 


The  following  steps  are  taken  to  obtain  the  final  form  of 
the  variation  in  kinetic  energy:  (1)  Integrate  Eq  (2.23)  by 
parts  with  respect  to  x  and  y  (for  this  procedure,  see  Appendix 
B)  for  the  terms  ^w,  and  ^w,  ;  (2)  Integrate  the  complete 

X  X 

resulting  expression  by  parts  with  respect  to  time;  (3) 
Collect  terms;  (4)  Neglect  the  variations  of  the  degrees  of 
freedom  at  the  endpoints  t^  and  tg:  and  (5)  Neglect  time 
dependant  boundaries,  since  only  harmonic  problems  are 
considered.  The  following  is  obtained: 


26 


"  f!"  f  n  ■  -  (ll'^ 


'10  0 


^2'^y  -  'r3’“-y]*’'o  -  (Vo,x  *  h^x.x  *  h  ’^o, 


*'^^7(“’xx  *  *-yy'  *  ^S^y.y  ^1“]“**'  '  [^2“o  *  l4^x  ' 


l5"'x)*''x  -  ^2’^o  *  -  *5“'y]% 


(2.24) 


The  strain  energy  is  developed  following  the  procedures 
outlined  in  (11),  (14)  and  (20).  The  first  variation  of  the 
strain  energy  may  be  written: 


pb  pa  p  h/2  ^ 

=  I  I  I  \a  6c  +  a  6c 
J  J  J  I  X  X  y 

0  0  -h/2 


+  T  dy  +  T  <5y  + 

y  xy  xy  yz  yz 


’^xz*>'xz] 

(2.25) 


By  substituting  the  strain-displacement  relations  in  Eq  (2.5) 
into  Eq  (2.25),  integrating  with  respect  to  z,  and  using  the 
resultant  quantities  in  Eq  (2.15),  the  first  variation  of  strain 
energy  may  be  rewritten  as: 


27 


«5U  =  ”  +  M-6x  ”  +  P,6j*  ° 

J  J  L  1  X  lx  lx  "2  y 

0  0 

+  P„6x  *  +  °  ®  + 

2  y  2  y  6  xy  6  xy 


+  M««5x  +  S„«5>* 

2  y  2  y 


S«6x  ‘  +  Pc'S*  * 

6  xy  6  xy 


L«6»e  ■ 

6  xy 


+  Ro*®* 

2  ya 


+  Q««5y 
1  xz 


dxdy 

(2.26) 


Substituting  the  expressions  for  the  mid  surface  strains  and 
curvatures  in  Eqs  (2.6)  and  (2.7)  into  Eq  (2.26)  and  then 
collecting  terms,  the  following  is  obtained  for  the  strain 
energy : 


0  0 


(>•6  *  2fM6)*''o,x  *  XX  *  (“’z  '  * 


[2kPg  -  k-^Lg]6w.^  +  (Qg  +  3kR2)«5w,y  +  (Q^  +  3kR^)6w,^  + 


K  -  ^=2  *  *^2  -  +'^2)**'y.y  *  '“s  *  ““s'^.x  * 


(«6  -  4-®6  *  “”6  -  4-W'6)*’'x.y}*»‘’' 

Eq  (2.27)  is  integrated  by  parts  according  to  Appendix  B  to 


obtain : 


6u  + 


2R  *‘6,x 


6v  + 


‘‘‘•’l.x  *  -  «l,x  -  «6,y  *  *  “r'Se.y  *  '^6,y>J'*^ 

Hz  -  ‘=<P2.y  *  Pe.x*  -  “Z.y  *  ^'^z.y  *  >^2,y>  ' 

“e.x  *  «2]'®»'y 

n  *  («6  "  45-«6]^’'o  ^  (-‘'<'’l.x  *  ^Pe.y*  *  *1  ♦ 

0 

3kRj  *  ^-W-e.y]*"  *  <«1  *  2W’l)'5*'x  *  (Mg  *  }|^'| 


n  (»6  -  *'2*''o  *  (-‘'<'’2.y  * 


x)  *  S  * 


3kR2  *  4-k<L2_y  *  L3^^)]«»  *  (Mj,  ^  kPg  *  -f  (-Sg  -kLg))iw, 


K  *  2»2  ^  -^<-^2  -  2'^2>)‘'*'y  }  x”' 


*  •'(2P6  - 


y=b  x=a 
y=0  x=0 


(2.28) 


The  last  component  of  the  energy  formulation  to  consider  is 


the  potential  energy  due  to  external  forces.  The  only  external 
forces  considered  are  inplane  forces  that  will  bifurcate  the 
laminate  in  buckling:  iej  those  forces  that  will  create 
out-of-plane  displacement.  In-plane  inextensibility  is  assumed 
in  the  bifurcation  analysis.  Therefore,  only  nonlinear  bending 
strains  need  to  be  considered.  The  linear  and  nonlinear  bending 
portions  of  the  membrane  strains  at  the  laminate  mid  surface  are 
from  Saada  (19): 


«  =  — o— w, 

X  2  X 

^  1  .  2 
^y  ~  R  ^  2  y 


^xy  =  '''  x'''  y 


The  expression  for  the  potential  energy  then  becomes: 

=  J  J  {  *  V  x^-y 

0  0  (2.29) 


where  and  Ng  are  externally  applied  loads  per  length  in  the  x 
and  y  directions,  respectively,  and  Ng  is  the  externally  applied 
inplane  shear  load  per  length.  (See  (5)  and  (7).)  This  thesis 
will  only  be  concerned  with  axial  buckling  in  the  x  direction, 
but  will  develop  a  general  formulation.  Taking  the  first 
variation  and  collecting  terms: 


"  r  n  *  V- y’’®*'- X  *  <®2''-y  ♦  V-x**"-; 

0  0 


+  -4-N.,«5w  ^xdy 


R  2 

(2.30) 

After  integrating  by  parts  and  collecting  terms,  the  final  form 


30 


of  the  potential  energy  becomes : 


av  =  f  -  2V  xy  *  »2[-^  -  •'■yy] 

0  0 

+  f  (V'x 


x=a 


dy  + 


x=0 


r 


(Ngw.y  +  Ngw.^)6w 


y=b 

y=0 


dx 


(2.31) 


The  expressions  for  the  first  variations  of  kinetic, 
strain,  and  potential  energy  in  Eqs  (2.24),  (2.28),  and  (2.31) 
are  used  in  Hamilton’s  principle,  Eq  (2.18),  to  obtain: 


f  f  '  '2'"x  *  *3“-x  *  “l.x  *  “s.y  ‘  "5r^6,y)*“< 

■'’'l  0  0 


o 

:> 

« 

1 

^  ^  *  •• 

-  I2  V'y  +  I3  W,y 

*^2,y 

*  "e.x  *  • 

2ft  “s,  J'*''o 

[-^3%.x 

-  Vx.x  -  T3'- 

o.y  *  ^ 

*l7<*-xx  * 

"•yy’  ■ 

Vy,y 

-  ^1^  -  ^<Pl,xx 

^2,yy 

*  2>’6.xy> 

+  Qo  + 

2,y 

«l,x  * 

^^^®2,y  *  ®l,x^ 

--fcN 

2  “  *^^^2,yy  *  ^6,xy^^  ^ 

V’xx 

*  ^^e'^’xy  "  ^2(" 

-1-  -  w 
R 

yy)  h 

(-T2“o  ■ 

■  Vx  ^5^'x 

^<Pl.x 

*  ’’6.y>  " 

“l,x  «6,y  - 

3kR^  - 

®1  ■  -^-^^S.y 

“-e.y') 

6v 

X 

(-^2'  ^0 

-  +  IgW.y 

^  ‘‘'P2.y  *  ’’e.x’  ^ 

•  «2,y  *  “e.x- 

3kE2  - 

®2  ~  “S“^®2,y  ^ 

•^a.y’] 

dVy  \  dxdydt 
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■  f{  *  K  *  4ir«6)*''o  -  h<Pl.x  *  2P6,y>  *  «!  * 

0 

3kHj  *  -^W-e  y  *  RjW.^  *  HeV'.y]'*''  *  (Ml  +  2kPi)«».^  ♦ 

(Mg  +  kPg)a*-y  jl  ^dydt 

■  ly  n  ("s  ■  -iTr“6)'®“o  V''o  *  h'fa.y  ♦  2Pg  t  * 

^1  0 

^**2  *  “H“M(('2,y  *  ^6,x’  *  ^Z^’y  *  ®6"’0*“  * 


K  *  >^6  *  -f ‘-^6  ->^6>)'**'x  ^ 

(“2  *  2«“2  *  4-<-S2  -  2ML2)]«V>y  } 


y=b 

dxdt 

y=0 


X=:a 

dt 

x=0 


0 


(2.32) 


The  double  integral  over  the  domain  in  £q  (2.32)  contains  the 
five  equations  of  motion.  The  two  line  integrals  are  the 
geometric  and  natural  boundary  conditions  along  the  four  edges 
of  the  shell  panel,  wd  the  last  term  expresses  the  boundary 
conditions  at  the  four  corners.  In  the  double  integral,  the 
variations  of  the  degrees  of  freedom  {*u^,  “id 
dV'y)  are  arbitrary  and  in  general  are  not  equal  to  zero. 
Consequently,  their  corresponding  coefficients  must  equal  zero, 
yielding  the  five  coupled  partial  differential  equations  of 
motion  for  the  panel  at  any  time,  t: 
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*'l.x  ■  *'6,y  2R  ”6,y  "  ‘I'*©  *  ^z'^x 


"a.y  *  "e.x  *  -ir^e.x  =  *l’^o  *  h  *y  '  ^3  "-y 


"  ^^^l,xx  ^2,yy  *  ^^6.xy^  *  ®2,y  *  ®l.x  *  ^^^®2.y  ^  ®l,x^ 


i-CN2  -  k(L2^yy  +  Lg^^)]  .  N^w.^  .  2Ne 


w, _  -  N« I— 4—  -  w,  I 

'xy  2L  R  'yyj 


=  ^3Vx  ^  ^S'^x.x  ^  ^3  Vy  ■  ^  ^7<''*xx  ^  '^'yy^  ^  Vy.y  ^ 


Sy/  : 

X 

•"Pl.x  ^  '’6,y>  *  «l,x  “6,y  '  '  «!  '  T'^e.y  *  “-B.y’ 


”  ^2'^o  ^  ^4^x  ~  ^5'^’ 


6v  : 

y 


*'<P2.y  ♦  P6,x>  *  «2,y  *  Me.x'  3‘«2  '  «2  '  -r<S2.y  *  '^2,y> 


=  ^2  ''o  *  Vy  -  l5">y 


(2. 33) 


These  equations  of  motion  will  simplify  to  those  of  other 
authors  for  certain  applications.  If  R  -»  »  in  Eqs  (2.21), 
(2.32),  and  (2.33),  the  equations  of  motion  and  boundary 
conditions  reduce  to  those  of  a  flat  plate  with  parabolic 
transverse  shear  and  rotary  inertia.  (See  (14),  (15),  and 
(17).)  If  the  following  terms  are  deleted  from  the  equations  of 
motion  in  Eq  (2.33): 
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2R  *^6,y 

2R  ^6,x 

6w: 

4-^<4,yy 

Sw  : 

X 

■  “R~^®6.y 

“■6.y) 

Suf  ; 

y 

R“^®2,y 

(2.33a) 

'the  equations  of  motion  reduce  to  the  Donnell  equations  of 
motion  as  presented  by  Reddy  (16).  For  h/R  %  1/50,  the  terms  in 
Eq  (2.33a)  are  small  relative  to  the  other  terms  in  Eq  (2.33), 
thus  establishing  the  1/50  limit  used  by  Reddy. 

The  general  equations  developed  so  far  need  to  be  tailored 
to  meet  the  needs  of  the  specific  circular  cylindrical  shell 
panel  to  be  considered  in  this  thesis.  First  of  all,  this 
thesis  will  only  consider  symmetric  laminates:  that  is, 
laminates  that  are  symmetric  about  the  mid  surface  with  respect 
to  both  material  properties  and  geometry  (fiber  orientation 
angle,  ©j^,  and  thickness,  Therefore,  the  following 
stiffness  matrices  from  Eqs  (2.16)  and  (2.17)  will  drop  out  (9): 

.  [  ®ij]  =  [  hi]  =  [  °ij]  =  [  *ij]  =  [  ^  ] 

Additionally,  since  p  is  constant  with  respect  to  z  (all  laminae 
have  the  same  density),  the  inertia  terms  in  Eq  (2.21)  may  be 
integrated  to  yield: 
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Il  = 

I3  =  ph^/12,  Ig  =  ph®/80.  =  ph*^/448 


(2.33c) 


h^/15. 


h^/60. 


=  17ph^/315, 


Ig  =  4ph^/315 


The  last  simplification  concerns  the  acceleration  terms  in  Eqs 

(2.32)  and  (2.33).  This  thesis  will  consider  rotary  inertia: 

not  in-plane  inertia.  Consequently,  the  following  in-plane 

acceleration  terms  will  drop  out:  u=v=u  =v  =0. 

o  o  o,x  o,  y 

During  the  development  of  the  kinetic  energy,  time 
dependant  boundaries  were  ignored  because  this  thesis  is 
concerned  exclusively  with  harmonic  problems.  Assuming  harmonic 
solution  forms  and  applying  separation  of  variables,  the  five 
degrees  of  freedom  and  their  corresponding  accelerations  may  be 
expressed  as : 


Uq  "  UQ(x,y,  t)  =  u^(x,y)sinwt 
Vo  =  v^(x, y, t)  =  v^(x,  y)sinwt 

..  2  2 

w  =  w(x,y, t)  =  w(x, y)sinwt  ,  w  =  -«  w(x, y)sinwt  =  -<o  w 

..  2  2 

V^x  =  Wj^(x,y,t)  =  V'j^(x,y)sin<.)t,  =  -w  \»/^(x,  y)sina>t  =  -w 

"2  2 

V'y  =  V'y(x,y,  t)  =  v/y(x,  y)sino>t,  V'y(x,  y)sin(ot  =  -o> 

whore  w  is  the  natural  frequency  of  vibration.  (2.33d) 

If  these  expressions  are  substituted  into  Hamilton’s  principle, 
Eq  (2.32),  bearing  in  mind  that  all  the  resultant  quantities 

{L.},  and  {Rj^})  are  functions  of 
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the  spatial  derivatives  of  u^,  v^,  w,  and  V'y,  the  term  sinwt 
may  be  factored  out  from  the  entire  expression  and  integrated 
with  respect  to  time: 


sin<>>tdt 


-coswt 


(2.  33e) 


The  integrand  may  be  ca  oeled  to  the  right  side  of  the 
equation,  leaving  Eq  <2.32)  independent  of  time. 

The  concepts  presented  in  these  paragraphs  are  now 
incorporated  into  Hamilton's  Principle.  Equation  (2.32)  is 
partitioned  into  five  equations.  Each  contains  the  equation  of 
motion  plus  the  associated  boundary  condition  for  a  particular 
degree  of  freedom.  <4),  (21),  and  (23). 


Equation  (2.32)  for  u^  yields: 

f  *  "e.y  -  * 

0  0 


x=0 

N,«5u^  dy  + 
^  °  x=a 


6u. 


y=0 


dx 


y=b 


0 


(2.34) 


rn 

0  0 

rby. 


V  yields 
o 

• 

'  2 

<»)  w,  + 

N..  +  N. 

+  — 

'y 

z.y  b,x 

x=0 

y=0 

dy  + 

dx 

x=a 

1  ^  o 

'^0 

y=b 

(2.35) 
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Equation  (2.32)  for  w  yields: 


CO 


*  Vy>  '  *'“^7“^<"-xx  *  ''•yy>  *  *  «l.x 

^2.yy  ^  ^^6,xy^  ®2,y  ®l,x^ 

■^'"2  -  “'^.yy  ♦  ■-6,xy>’  *  V'xx  *  ^V'xy  ' 


"2  (-5-  '  "’yy)  ]** 

rt'*'"'!. 


X  *  2Pe,y)  ♦  «!  *  3kSi  *  -s-W-e.y 


+  N-W,  +  NeW,  jdw 

1  'x  6  'yj 


x=0 


dy  + 


x=a 


ft- 


^<P2.y  ^  2P6.^)  -  Q2  "  3kR2  .  ^ 


+  V'y  V'x)'^'' 


y=0 


dx  + 


(2^6  -  -^‘■6]"''}|7;“ 


|x=0 


x=a 


=  0 


y=b 


(2. 36) 
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Equation  (2.32)  for  yields: 


J  ■  ^6“^“'==  *  “•'’l.x  *  Ps.y*  *  “l,x  *  “e.y  '  «1 
0  0 

■  -E"<®6.y  *  “■6.y>]**'x'*=^’'  * 


J°[Mj  +  Zkpjd*'^  *  °dy  + 

p(Mg  *  kPg  *  ^(-Sg  -kLg)]dw^  ’'■°dx  =  0 
^  ^  y=b 


(2.37) 


And,  finally  Eq  (2.32)  for  Vy.  yields: 


f  flVv  -  Is-'-’y  *  ''<'’2.y  *  P8,x>  *  “2.y  *  “e.x'  «2  ' 


0  0 


5*^2 ' 4-<®2,y  *  “'2.y>]®V*>*y 


f  («6  * 


dy  + 


{“(Mz  *  ZkPz  *  +<-S2  -  2W.2))'5»' 


y=b 


dx  =  0 


(2. 38) 


The  final  step  in  the  development  of  the  equations  of 
motion  and  boundary  conditions  is  to  substitute  the  resultant 
quantities  in  Eq  (2.17)  and  the  strain-displacement  relations  in 
Eqs  (2.6)  and  (2.7)  into  Eqs  (2.34)  through  (2.38).  With  the 
aid  of  MACSYMA  (25)  to  perform  the  extensive  algebraic 
manipulations,  these  five  equations  may  be  expressed  in  terms  of 
the  degrees  of  freedom  and  stiffness  terms. 
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Equation  (2.34)  for  u  becomes: 

o 


J*  J  ^^66^0,  yy  ^  ^ll^o.xx  ^  ^^16^o,xy  ^  ^26^o,yy  ^  ^16^o,xx  ^ 

0  0 

^^66  *  ^12^'^o.xy  *  t("  I  ^26'^’yyy  ■*■  ^26'''y  ^12''' x  ~ 
2  ^16''’xxy  ^12^''’xyy  "  I  ^^66  *  ^66^’^x,yy  " 

2  ^^16  ®16^^x,xy  “  2  ^^26  ■*■  ^26^'^y.yy  "  ^  I  ^^66 


0  0 


yy  ^  ^11^0, XX  ^  ^^16^0, xy  *  ^26^o,yy  ^  ^16^o,xx  ^ 


^12  ■*■  2  ^66'^  ®12^^y 


.xy-  ^  3  ®68<''o,yy-  “o, yy>)}®‘'o'*'^y 


J  {*n“o.x  *  *16Vy  ^  *12’'o,y  ♦  *16''o,x  *  T(-'^12'''yy  ' 

0 

“■le^-xy*  *12“  -<*^12*  “u’^y-O^ie*  “le'^x, y]}*“o 

J  {*l6“o,x  *  *66“o.y  *  *2e''o,y  *  *66“o.x  *  I  *^26“’ yy" 

0 

2  ^16''*  XX  ■  ^^ee'^’xy  ^26''  "  I  ^^26  ■*■  ^26^'^y,y 

2  ^66^^y,x"  2  ^^66"^  ^66^'^x,y“  I  ^IS^'^'x.x 

-^3®S6<Vx-%.y>]Wor%  =  °  <2 


Equation  (2.35)  for  becomes: 


J  ■*  *16“o. 

0  0 


XX  *  ^^66  *  ^12^^o,xy^  ^26'^o,yy 


R  ("^22''*  yyy"^  ^22''’y 


*  ^22^0, yy  *  ^66^0,  xx  ^^26'^o,xy  *  R 

*  i  ^16''*  XXX  "  I  ^26'''xyy  *  ^26''*  x  ~  ^^26  ■*■  ^26^'^x,yy 

*  I  ^^16  *  ^le^'^x.xx  "  I  ^^66  ®66^'^x.xy  "^^22 


^22^'^y.yy  2  ^^66  *  ^Se^'^y.xx  “  2  ^^26  *  ^26^'^y,xy 


R  4  ^66^%,  xy  “  "^o 


,xx^)}^ 


v^dxdy 


IqI'^IB^.x  '"ee^.y  ^  ^ee^o.x  '^26^o,y  ^  -i-(-  k  ^26^>yy  * 

I  *^16''’ XX  *  ^26'^  ■  I  ^^66  *  ^66^’^x.y  ■*■  I  ^^16  * 


*  ^16^'^x,x"  2  ^^26  ®26^^y,y  *  2  ^^66  ^66^'^y,x 


i  „  -  ^o,x^)}^^ 


^  4  ^66' Vy 


x=0 


dy 


x=a 


I  {'^12%,  X  ^26^0, y  *  ^26^0. yi  *  ^22^o,y  *  R  {"^22''’ 


yy 


^26''*  xy  *  ^22^*  ^^26'^  °26^^x,y 


^^22“^  ®22^'^y 


y=0 


dx  =  0 


(2.40) 


y=b 
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Equation  (2.36)  for  w  becomes: 


rn 

0  0 


2V-«,  *  V-yy  -  ''"«22''-yyyy*  <«“44  *  9*'^^4  *  *44"'-yy 


-  -  ‘“'^»16''-xxxy  -  2‘'^<2He6  *  «12>''-«cyy  * 

(6kD„  4  9k2  *  4  (12kD^g  *  ISk^, 

*  2A45)''-xy  -  <*=S6  "  ‘^26>*'x.yyy  *  <**^46  *  ®*^%6  * 
''46>*'x,y  -  <>'^«11  *  •^ll>*'x.xxx  '  *  ^kF^g)*.^  ^  - 

k(2kHg6  *  kHj2  +  2Fgg  *  Fjj),.^  ^  *  (6kDgg  *  Sk^Fgg  . 

*55>*'x,x  -  “<‘^22  *  ^22>*'y,yyy  *  <®“44  *  *>'^4*  ®44>*'y,y 
-k(kHjg  4  Fjg)„^_^  -  k(2kHgg  4  kHj3  .  2Fgg  4 


-kOkHjg  4  SFjg),.^^^  4  (SkD^g  4  9k‘F^g  4  4 


B  ['^2*  2  *^2e''o,yyy  ®26“o,y  *  2  ’^16“o,xxy  "  *12“o.x 


+  k(2Fc^  +  F-„)u  +  kF««v  -  A«oV„  „  -  A„«v 

w  w  X  b  o  I  xyy  w  w  o  ^  300^  w  b  o  4  y  2  o  o  ^  X 


2  ^le’^o.xxx  '*'  2  ^26^0 


.xyy'^  R  (  ^^*^22''*  yyyy"^  ^^22''': 


-k  Je6''’xxyy  "  ^^^'^26''* xyyy  ■*■  ^^26'''xy  "  ^22^^ 
**26^^x.yyy  *  ^^26  ■*■  ^26^^x,y  "  ■*■  “ss^'^x.xyy  " 

k{kJ22  ■*■  *^22^'^y,yyy  *  ^^22  *  ^22^'^y,y" 


^^^26  ‘'‘  **26  ^'‘'y 


,xyy)]}® 


wdxdy 


+  NgW.y  -  2k-H2gW,j^  *  (6kD^g  4  Sk"! 

‘'^“u'''xxx  -  ■'‘'^“l6''-»cy  *  <®“66  * 


‘'^<‘“>66  *  «l2>’'-kyy-  Fjg)*.^  ^^-kCkH^g  4  Fjg)^^ 

-  k(2kHgg  4  kHj3  4  2Fgg  4  Fj2)V-y_^  4  (SkD^g  4  Sk^,  4 
*45>Fy  -  2k(kHgg  4  Fgg)^^  yy  -  k(kHjj  4  Fjj)w^  3k(kHjg 

*  '^le'Fx.xy  *  ‘^*^55  *  **'^^65  *  4  -^[2kFggU^  4 


2  ^16*^0,  xy  ^  ^26^0,  yy  2  ^16^0,  xx  *  R 
+  kFggW.y  -  k  J66''’xyy  "  ^^^66  *  ^es^'^x.yy 


4 

2  16  o,xx  R  t  26  yyy 


-  ktkJgg  4  H2g)Fy_yy)]}5W 


®2"’y  *  ^e^'x  ■  '‘^®22'''yyy  *  *®*^44  *  **'^^44  *  *44’”’y  " 
2‘'^Hi6"'xxx  -  '‘^<‘'«66  *  Hl2>»-xxy  '  ■“‘"«26“-xyy  *  <*“46  * 
*‘‘^^45  *  *46’“’x  ■  *'*'^26  *  ^26’Fx,yy'  2k(kHjg  4  FjgjVj^ 
-k<2kHgg  4  kHi2  4  2Fgg  4  Fjj),.^  ^4  (6kD^g4  9k\g4  A^g)F^ 

-k(kH22  +  *^22^'^y.yy  “^^^^66  ^66^'^y,  xx"^^^^26'*^^26^'^y,  xy 


4(6kD^^  4  Sk^F^,  4  A„)yy  4  ^-[kFjgU^ 


XX  ^  2  ^26'^o,  yy  '*' 


k(2Fgg  +  Fi2^%,xy  ^  ^22''o,yy  t  ^26^o,xy'^  “g“(^22''*y 

-k  J22''’yyy  *^66'^’ xxy  "^^^'^26''' xyy  *  ^26^^' x  "  ^^^26 

*^26^^x.yy  "^^^66  ^^ee^'^x.xy  ’^^^22  ”22^^y,  yy"^^^26 


“26'"y.xyJJ|5w 


2k  HggW, yy  +  2k  Hjg 

.  2k(kH^g  4 

+  k  J26''’yy  *  ^  ‘^66 

+  k(kJgg 


w,^  4k2H 

X  "  2k<kH2g 

66%,  y  “  ^ 

w,  ^  +  k(kJ 


66'^'xy 


+  F 


26 


16%,  X 


26 


+  H 


f  2k(kHgg  +  F66>%,y 

>%,y  ^  2k(kHgg  + 

-“'aeVy^  -^(-"'26" 

26^%,  y 


+  H 


66 


y=0 

y=b 


x=0 

x=a 


0 

{2.41) 


Equation  (2.37)  for  becomes: 

J  J  ~  ^^^26  ■*■  ^26^'''yyy  '*’  ^ll^'^'xxx 

0  0 

-  (SkP^j  -t  9k%5  +  A^s'^-y  *  3k(kHjg  +  Fjg)w,^  +  k(Fj2 

*  2kHgg  *  kHj2  +  2F66>''’»ry  '  <«“56  ^  * 

(k\g  *  2kFgg  +  Dgg)*.^  yy  +  (k^Hjj  *  2kFjj  +  Dii)V'y,yy  + 

2<k2H^g  t  2kF^g  +  D^g)»-y  yy  -  (SkDgg  +  9k%5  +  Agg)*'^  * 

(k\g  ♦  2kF2g  *  D^gX.y  yy  ^  (k^^Hlg  *  2kFjg  *  Djg)V.y_yy  ^ 
(k\g  *  k=Hi2  *  2kFgg  *  2kF,2  *  Dge  *  '>j2)*'y.yy  -  (SkD^g 

»  9k%5  +  A4g)*-y  ♦  4-[-  I  (kFgg  f  Dgg)u^  yy  "  ^  (kF^g  + 

®16>‘'o,xy  -  <>^26  *  ®26>''o.yy  *  I  ‘“'iS  *  '’le'Vxx  ' 

5  <^66  *  '>66>''o.xy  *  -^(‘'<'''^26  *  «26>'''yyy  '  <’^26  " 
'^26*"’y  *  *‘**^66  *  *'66*"’xyy  *  **'  "’sB  *  ^kHgg  ♦  ^66”'x,yy 

*  (k^J26  *  2«'26  *  ''26>*'y,yy)]}**'x‘*»‘>' 

+  0k<2kHi2  ♦  '■j2)w,yy*  k<2kHjj+  Fu’''’xx  *  2k(2kHjgt  F^g)w,yy 
+  (2k^Hjg  +  3kFjg  +  Djg)Vy  y  +  (2k^Hjj  +  3kFjj  + 

+  (2k^Hj2  +  3kFj2  *  *  ^“'le  *  ®16>*'y,x 

*  -g-[-<“'l6  *  5  ®l6’“c,y  *<"'l6  *  5  “i6>''o.x)HL=!‘'’' 


^^^26  ^26^'''yy  ^^^16  *  ^16^'''xx  ''■  ^^^“66  ■*■  ^66^'''xy 

*  (kXe  *  2*^66  ^  “se’-x.y  *  <*'^«16  *  2*^16  *  °16>»'x.x  * 


(k^Hgg  + 

2*^26  ^  ^26>’"y.y 

*  (k^Hge  ♦  ZkFgg 

*  °66>*'y 

1  r  3 
-w[-  5 

<^66  ®66^^o,y 

(kFig  +  Die)uQ 

-  <>^26 

®26^^o.y 

1  ^^66  *  ^66 

+  H2g)w 

k(kJg6  + 

*^66  ^'^’xy"  ^^26 

■*■  ^26^''  '*’  *^66'*’ 

2kH66^ 

♦  (k^Jae 

^  ^^26  *  ^26 ^'''y 

■OlHll!'*’'  = 

0 

(2.42) 


And,  finally,  Eq  (2.38)  for  w  becomes: 

r  ^  ‘'<“>22  *  '^22>"- 


0  0 


yyy  '  <«'^44  *  *’'^  ''44  * 


A44)w.y  +  k(kHjg  +  +  k(2kHgg  +  kHj^  +  2Fgg  * 

’'l2>*-xxy  *  3‘^(“'26  *  ^26>“-xyy  '  ‘«'^46  *  *46>“’j 

*  (*'^«26  ♦  2“'26  *  ‘>26>*'x,yy  *  O'^Hje  *  ^M'le  *  “is’Vxx 

*  <k\g  *  k\^  *  2kFg5  4  2kFj2  *  Dgg  4  - 

{SkD^^  4  9k%5  4  4  (kX,  *  2kF„  4  D„)v . 4 


22  ^22^^y,yy  * 


‘‘'Xe  *  2kFgg  4  DggjWy  4  2(k\^  4  2kF2g  4  ^ 


(6kD,.  +  +  A^^)V/„  + 


44  "44'>  "  R 


1_L  3 

R  I  2 


(kF,,c  +  D„4j)u 

26  26  o,yy 


2  <^66  ^  2kF^2  °66  ^  xy  "  <^22  ^  ®22>Vyy  ^ 

2  ^^66  *  ®66^^o,xx  ■  I  ^^26  *  ^26^'^o,xy  ■*■  t[^^^22  ■*■ 
*^22^''’yyy  "  ^^22  ^22^'*’y  ^  ^^^26  ^  ^26^''’xyy  ^  ^^^'^22 

*  2kH22  *  ^22>'"y,yy  ^  ^^^6  ^  2kH2g  +  ^26 >'"x,  yy)]}^ 

+  JJk{kH26  +  F26>'''yy  ^<^16  ^16>'''xx  ^  2k(kHgg  +  Fgg)w,^ 

+  (k^H,^  +  2kF26  +  D2g)yy  y  +  (k^H^^  +  2kF«^  +  „  + 


66  *'66''^y,x 


(k%«  +  2kFgg  +  Dgg)y^  y  +  +  2WF,^  +  D442)V'„  „  + 


16  ^  *'16'^x.x 


R  (  2  ^^66  ®66^'^o,x  "  2  ^*^66  *  ^66^‘^o,y)Wy 


J*{k(2kHj2  +  Fgj)-. 


yy  ^(2kHj2+  ^12^''' xx'*^  2k(2kH2g+  F26^''’xy 


4  (2^25  *  SkFjg  *  Dje'v^.y  *  (2k^Hl2  * 

*  **22  *  ®*^22  *  ®22’'''y,y  ^  *^*'  **26  *  ®*^26  *  *’26*’''y,x 

*  ^[-  I  <2kF23  ^  D26)u„_y  -  (2kFj2  *  Dj2)u„,^  -  (2kF23  * 


®22>Vy 


2  <^*^26  *  *’26*''o.x  *  E  (*'*^*''*22  *  ’*22*'''yy  * 


k(2kJ2g  +  **26*''’xy“  *^*^22  *  **22*“  *^*'  **22  *  3*^22 


'■22>“y.y  *  <2*^  '*26  "  3“'26  *  ^26>*'x 


.x]]K 


y=0 


dx  = 


y=b 


(2.43) 


Several  observations  can  be  made  concerning  Eqs  (2.39)  to 

(2.43).  For  a  flat  plate,  small  deflection  theory  dictates  that 

bending  displacement  is  completely  decoupled  from  membrane 

displacement.  If  the  radius  of  curvature,  R,  approaches 

infinity,  the  five  circular  cylindrical  shell  panel  equations 

reduce  to  those  of  a  flat  plate.  The  two  membrane  equations  for 

Uq  ,  Eq  (2.39),  and  v^,  Eq  (2.40),  will  consist  only  of 

extensional  stiffness  terms,  A.  .,  and  spatial  derivatives  of  u 

and  V  ,  as  expected.  Additionally,  the  three  bending  equations 
o 

for  w,  w,  and  v  in  Eqs  (2.41),  (2.42),  and  (2.43)  will  consist 
X  y 

only  of  bending  and  higher  order  stiffness  terms  and  spatial 
derivatives  of  w,  w  ,  and  w  .  If  the  higher  order  stiffness 

X  y 


terms  are  dropped,  leaving  only  A.  .  and  D.  • 

A  O  * 


the  three  flat 
plate  equations  will  reduce  to  those  of  (3),  (4),  and  (20), 
which  were  obtained  from  the  lower  order  Hindi in  transverse 
shear  strain  modeling.  For  R  not  equal  to  infinity,  membrane 
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and  bending  displacemenb  are  coupled.  To  find  the  natural 
frequencies  and  buckling  loads  of  the  circular  cylindrical  shell 
panel,  all  five  equations  must  be  solved  simultaneously.  This 
solution  will  be  approximated  using  the  Galerkin  technique 
discussed  in  the  next  section. 
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OALERK»>i  TECHNIQUE 


The  Galerkin  •technique  is  an  approximation  technique  that 
will  be  used  to  solve  the  five  coupled  partial  differential 
equations.  The  general  concepts  of  the  method  will  be  presented 
first,  and  then  its  specific  application  to  this  problem  will  be 
addressed.  Most  of  the  concepts  presented  here  are  from  (11), 
(20),  and  (22). 

The  classic  Galerkin  technique  works  directly  with  the 
equation  of  motion  of  a  particular  system.  For  example, 
consider  the  following  system  (the  same  form  as  Eqs  (2.39)  to 
(2.43)): 


11 


DE0M(f  (x,y))<5?(x,y)dxdy  +  |  BCl(e (x, y) )df  (x, y) 
y  X  y 


1 


+  j  BC2(^r(x,y)  )6f  (X,  y) 

X 


dy 

X 


dx  = 


0 

(2.44) 


where  ?(x,y)  is  the  degree  of  freedom,  DE0M(f(x,y))  is  the 
differential  equation  of  motion  that  is  a  function  of  f(x,y)  and 
its  spatial  derivatives,  and  BCl(f(x,y))  and  BC2(f(x, y))  are  the 
associated  boundary  conditions,  also  a  function  of  f(x,y).  The 
approximate  solution  has  the  form: 


((x,y)  =  )  ) 

m^l  n^l 

where  A  are  unknown  constants  to  be 
nin 

^  (x,y)  are  known  linearly  independent 

lull 

ie,  functions  that  satisfy  both  the 


(2.45) 

determined  later  and 
comparison  functions, 
geometric  and  natural 
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(force)  boundary  conditions  of  the  system.  (11)  If,  say,  the 
required  degree  of  accuracy  calls  for  M  =  M  =  2,  then  Eq  (2.45) 
yields : 


f(x,y)  =  A^j0j^j(x,y)  +  ^22*^22^^'^^ 


(2.46a) 


and  its  corresponding  variation  from  (22): 


«5?(x,y)  -  <=»Aj2  ^  ^Ag^  ^'^21  ^  ^Agg  22 

=  0j^(x,y)6A^j+  «^jg(x,y)«5Aj2+  ^2^(x,  y)<5Ag  ^22^^' ^^**^22 

(2.46b) 

Since  <p  (x,y)  are  comparison  functions,  the  boundary  conditions 
mn 

in  Eq  (2.44)  need  not  be  considered.  Therefore,  Eqs  (2.46a)  and 
(2.46b)  are  substituted  directly  into  the  equation  of  motion 
only: 


IJ 


DE0M(?'{x,y))6f  (x,y)dxdy  =  0 

y  X 

The  following  results: 


J  J|^DEOM(A^j^^j^j^(x,y)  +  Aj^g0j^g(x, y)  +  A2^^gj^(x, y)  +  Ag2^gg(x,  y) ) j 


y  X 


['^^l(x,y)6A^^+  ^^g(x,y)6A^2+  ^g^(x,y)6Ag^+  ^gg(x,  y)6Aggjdxdy  =  0 

(2.47a) 
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or 


J  j[DEOM(A^j^^^(x,y)  + 

y  X 

^j^j^(x,y)«5Aj^j^dxdy  + 

J  J[DEOM(Ajj^jj(x.y)  + 

y  X 

y)i5Aj2dxdy  + 

J  J[DEOM(Aj^0j^(x,y)  + 

y  X 

I  J[DEOM{Aj^^j^(x,y)  + 
y  X 


^12^12^^’^^ 


A^2^12<^'y> 


0 


+  k2^4>2^{y..y)^  ^22^22^'"'^^  O' 


+  ^22^22^'"'^^  O' 


■•■  ^21^21  ^22^22^^’ ^^0 


(2.47b) 


Since  the  variations  of  the  constants,  *^^12'  *^21’ 

6A22  are  arbitrary,  the  only  way  Eq  (2.47)  can  be  identically 
zero  is  that  each  integral  go  to  zero  individually.  Thus,  after 
canceling  the  variation  to  the  right  side,  Eq  (2.47)  becomes: 

J  JjDEOM(Ajj^j^(x,y)  +  Aj2^12^^'5^^  ^  ^21^21^^'^^'^  ^22^22^^’^^  0 

X  y 

0jj^(x,y)dxdy  =  0 


I 


5 


X  y 


y  X 


^2i^x.y)dxdy  =  0 


J  J^DEOM(Aj^^^j^j^(x,y)  +  ■‘‘  ^21^21^^'^^"*^  ^22^22^^'^^^) 

X  y 

^22(x,y)dxdy  =  0  ^2.48) 
The  single  equation  of  motion  in  Eq  (2.44)  has  been  transformed 
into  four  equations  which  must  be  solved  simultaneously  to 
obtain  Ajj,  Aj^g'  ^21’  ^22*  ^  characteristic  to  note 
here  is  the  variation  of  the  degree  of  freedom,  ‘5f(x,  y),  in  each 
of  the  four  equations  has  been  replaced  with  a  single  term  of 
the  approximate  series  for  f(x,y)  in  Eq  (2.46).  In  general 
there  will  be  <M  x  N)  terms  in  each  equation  and  (M  x  N) 
equations,  depending  upon  the  degree  of  accuracy  chosen  in  Eq 
(2.45). 

Galerkin’s  technique  will  now  be  applied  to  the  specific 
problem  of  this  thesis.  There  are  two  major  differences  between 
this  problem  and  the  classic  problem  presented  in  Eqs  (2.44) 
through  (2.48).  First,  there  are  five  coupled  partial 
differential  equations  rather  than  Just  one.  To  account  for 
this  all  five  degrees  of  freedom  assume  approximate  solution 
forms  as  shown  (4): 
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¥'jj(x,y) 

A„„V'.^„(x,y) 
mn  xmn 

V'y(x,y) 

-1 

i 

(X,  y) 

mn  ymn 

w(x,y) 

-1 

1 

mn  mn 

u^(x,y) 

1 

E„  n^„„(x,y) 

mn  omn 

m^l 

n^l 

v^(x,y) 

-1 

G  V  (x,y) 

mn  omn 

m^l 

n^l 

where,  as 

before. 

mn  mn  mn 

E  ,  and 
mn 

constants 

to 

be 

determined. 

The  second 

mn 


(2.49) 
are  unknovm 


fundamental  departure  from  the  classic  Galerkin  technique,  and 
follows  the  same  line  of  reasoning  presented  in  (3),  (21),  and 
(23). 


By  examining  Eqs  (2.39)  to  (2.43),  it  is  obvious  there  are 
very  complicated  natural  boundary  conditions.  It  would  be 
virtually  impossible  to  choose  comparison  functions  to 
approximate  the  series  in  Eq  (2.49).  Alternatively,  yv^^(x, y) , 

^ymn^^'^^'  ^omn^^'^^  are  chosen  to  be 
admissible  functions:  functions  that  satisfy  only  the  geometric 
boundary  conditions.  As  a  consequence  the  Galerkin  technique 
will  be  applied  to  the  boundary  conditions  as  well  as  to  the 
equations  of  motion.  For  the  example  in  Eq  (2.44),  this  means 
the  line  integrals  for  the  boundary  conditions  are  included 
along  with  the  double  integral  for  the  equation  of  motion  when 
the  Galerkin  equations  in  Eq  (2.46)  are  generated.  The  boundary 
conditions  are  treated  the  same  way  as  the  equation  of  motion: 
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replace  f(x, y)  in  BCl(f<x, y))  and  BC2<?(x, y))  with  the 
approximate  solution  in  Eq  (2.46),  and  replace  in  each  line 
integral  with  a  single  term  in  the  approximation  series.  (Note 
that  if  it  were  possible  to  choose  comparison  functions  for  the 
five  equations  in  Eqs  (2.39)  to  (2.43),  which  fundamentally 
satisfied  the  natural  boundary  conditions,  then  only  the 
equations  of  motion,  ie,  the  double  integrals,  would  have  to  be 
dealt  with. ) 

With  the  general  concepts  in  hand,  the  Galerkin  technique 
will  now  be  applied  to  the  particular  boundary  conditions  used 
in  this  thesis. 
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SIMPLY-SUPPORTED  BOUNDARY  CONDITION 

In  this  section  the  admissible  functions  are  found  that 
satisfy  simply  supported  boundary  conditions  on  all  four  edges 
of  the  circular  cylindrical  shell  panel.  These  functions  will 
then  be  inserted  into  Eqs  (2.39)  to  (2.43),  and  then  the 
equations  will  be  integrated.  The  equations  will  then  be  ready 
for  the  eigenvalue  formulation  and  the  subsequent  determination 
of  the  natural  frequencies  and  buckling  loads. 

For  the  panel  simply  supported  on  all  sides,  the  following 
bending  boundary  conditions  exist: 

At  X  =  0  and  x  =  a 
w  =  V  =  0 

and 

At  y  =  0  and  y  =  b 

w  =  v*  =0 

X 

As  Jones  (9)  states,  there  are  four  kinds  of  membrane  simply 
supported  boundary  conditions  possible.  An  S-2  type  condition 
is  used  here  such  that  at  an  edge  of  the  panel,  the  normal 
displacement  is  not  zero  and  the  tangential  displacement  is 
zero: 

At  X  =  0  and  x  =  a 

u^  ^  0  and  =  0 
o  o 

and 

At  y  =  0  and  y  =  b 

u^  =  0  and  ^  0 
o  o 
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Therefore,  the  admissible  functions  in  Eq  (2.49)  become: 


V  (x,  y)  =  >  )  A„^cos(mfTx/a)  sin(nny/b) 

^  m^l  n^i 

V'^Cx.y)  =  >  >  B„„sin(mnx/a)  cos(nny/b) 

y  m^l  n^l 

w(x, y)  =  )  }  C  sin(mnx/a)  sin(nny/b) 

m^l  n^l 

u  (x, y)  =  )  )  E^^cos(npTx/a)  sin(nny/b) 

°  m^l  n4i 

=  l  I 

ttfil  r&l 


v^(x,  y) 


G  sin(mnx/a)  cos(nny/b) 
mn 


(2.50) 


The  single  terms  associated  with  the  variations  of  the 
degrees  of  freedom  are: 


6u  — ♦ 
o 

cos(pTtx/a) 

sin(  qrry/b) 

6v  — » 
o 

sin(pTTx/a) 

cos  ( qrry/h ) 

6w  — > 

sin(pTrx/a) 

sin(qny/b) 

— ► 

X 

cos(pnx/a) 

sin(qny/b) 

Sw  — ► 

y 

sin(pnx/a) 

cos(qny/b) 

(2.51) 

Notice  the  indices  in  Eq  (2.51)  are  p  and  q.  As  explained  in 
the  last  section,  the  single  terms  that  replace  the  variations 
of  the  degrees  of  freedom  govern  the  number  of  Galerkin 
equations.  Therefore,  the  number  of  terms  in  each  equation  is 
governed  by  m  and  n,  and  the  number  of  equations  is  governed  by 
p  and  q.  (See  Appendix  E. ) 

This  thesis  would  not  have  been  possible  without  the  use  of 
a  symbolic  manipulation  program  such  as  MACSYMA  (25).  This 
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artificial  intelligence  based  program  proved  to  be  invaluable  in 
the  algebraic  manipulation  and  integration  of  the  equations  of 
motion  and  boundary  conditions  in  Eqs  (2.39)  through  (2.43). 

The  step-by-step  process  taken  to  utilize  MACSYMA  for 

generating  the  Galerkin  equations  for  Eqs  (2.39)  through  (2.43) 
is  outlined  below.  (Note  at  this  point  Ng  and  Ng  are  set  equal 
to  zero,  since  only  axial  buckling  is  considered. ) 

1.  Substitute  Eq  (2.50)  into  the  five  equations  and  evaluate 

the  appropriate  derivatives.  For  example,  in  Eq  (2.39)  there 

are  terms  such  as  u  ,  w, ,  cuid  w  that  need  to  be 

o,yy  yyy  x,  xy 

evaluated . 

2.  Substitute  the  single  term  expressions  for  ‘5u^, 

dy/  ,  and  dv'  from  Eq  (2.51)  into  the  five  equations. 

X  y 

3.  Integrate  all  five  equations  according  to  guidelines 
outlined  in  Appendix  C.  For  each  equation  this  includes  a 
double  integration  for  the  equation  of  motion  and  two  single 
integrations  for  the  edge  boundary  conditions.  The  results  of 
the  integration  depend  directly  upon  the  values  of  m,  n,  p,  and 
q;  there  are  nonzero  results  for  only  two  cases: 

Case  (1):  m  =  p  and  n  =  q 

Case  (2):  m  p,  (m  +  p)  odd  and  n  ^  q,  (n  +  q)  odd. 

If  m, n,p,  and  q  do  not  meet  the  criterion  of  these  two  cases, 

the  five  equations  become  equal  to  zero  when  integrated. 

4.  Collect  terms  and  simplify  the  equations. 

The  generated  Galerkin  equations  for  case  (1)  are  shown 


below. 


Equation  (2.39)  for  u  becomes; 

o 

paq^Oh^Dgg  -  4Fg5)/<ebh2R)}A^  * 

{-.2pq(3h%g  *  -  4Fgg  -  8Fj2)/<24h2R)jB^  - 

{[nW(8Fgg  +  4Fj2)  -  SnbVpAjg] /<  12bh2R) - 
p[4R2<aVAgg  *  b^p^Ajj)  +  «VDge]/(16abR2)jE^  - 

ppq[4R2(Agg  +  A^j)  -  Dgg]/(16R2)|G^  =  0  (2.52) 

Equation  (2.40)  for  v  becomes: 

o 

{-r^pqOh^Dgg  -  4Fgg)/<24h2R)}A^  * 


p[aV(6h%2  -  8F22)  *  bV(4Fgg  -  3h%g)]/(24abh2B)}B^ 

-  |naq(4n2q2ir22  '  Sb^h^Agg ) /( 12b^h2R) - 
{n2pq[4R2(Agg  *  Ajj)  -  Dge] /<  16r2)}e^  - 
p[4R2(aVA22  +  b^p^Agg)  *  bVDgg]/(J6abR2)}G^  = 

-  {obTz'  *  {"ARTg' 


(2.53) 


Equation  (2.41)  for  w  becomes: 


{-np[R2[4n2,2,2(8Hgg  +  4Hjj  - 

+  4rT2b^p2(4H^^  -  3h^Fjj)  +  9a^b^{h^A55  -  Bh^D^g  +  16Fgg)J 
+  4n2a^q^(4Jgg  -  3h^Hgg)j/{36a2bh'‘R^)jAjjj^  - 
|'rq[^R2[^4rr2a2q2(4H22  -  Sh^Fgg)  +  +  4H^2  “ 

-  3h2F^2>  +  +  IBF^^)]  +  4n2a2q2(4j^^  _ 

3h^H22)  ■»•  a^b^h2(9h^D22  -  12F22)]/{36ab^h^R^)jBj^^  - 

|^n2R^|^16n2aS^H22  +  a^b^q^(64n2p2Hgg  +  32rT2p2H^2  +  Qa^h'^A^^- 

72a^h^D44  +  144a^F44)  +  16nVp^H^^  +  9a^bS^(h'^Ag5  -  Bh^Dgg 

+  16Fgg)J  +  ISn^a^q'^Jgg  +  Bn^aVq^ ( 2n2p2j^^  _  3a2h^F22)  + 

9aVh^A22]/<36a^b^h^R^)JCjjj^  - 

|np(8n2q2Fgg  +  _  Sb^h^A^g > ^^bh^R)  j-E^  - 

|naq<4n2q2F^^  _  3bVA22)/(12b2h^R) = 

{nbpT5/4}o.2A^  +  +  b^p^)!^  + 

RaVh-'ljl/Oeabh^jpC^  4  pbpV(4a)}NjC^ 


Equation  (2.42)  for  becomes: 


|-[E2[n2»2,2,i6Hgg  +  9h\g  -  24h%g)  * 

nVp^CeHjj  +  9h^I>ii  -  24h^Fjj)  +  8oV(h^Aj5  -  Bh^Djj  + 
I6F55)]  +  fi^a*9^<16Jgg  -  24h^Hgg  +  8h^Fgg)j/06abhV)jA^  - 

{n2p,[l8(Hgg+  Hjj)*  9h‘‘(Dgg+Di2)-24h2(Fgg  +  Fi2)]/<36h^)jB^ 
-  |np[R^[4a^a^q^(8Hgg  +  AHjj  -  8h^Fgg  -  Sh^Fjj)  +  4nVp^(4Hjj 
-  3h^Fjj)  +  9a^b^(h'^A5g  -  Bh^Dgg  +  I8F55)]  +  4n2a^q^(4Jgg  - 

3h2Hgg)]/(36a2bhV)jc^  * 
pa,2(3h2Dgg  -  4Fgg)/(abh^R)]E^  * 

{a^pqOh^Dgg  -  4Fgg)/(24h2R)}G„  = 

{-abl^/Aju^A^  *  {"bpTg/Aj.-^C^ 


t 


(2.55) 


And  finally,  Eqn  (2.43)  for  Wy  becomes: 


^-rr^pqj 


16(Hgg  ^  H^g)  +  gh-CDgg  +  - 


24h^Fgg  ‘  4i2)]/<*6h4)}., 


{[•1- 


+  ^^^^22  ~  n^b^p^dSHgg  + 


9h\g  -  24h2Fgg)  +  9aV(h\4  -  +  ISF^^)]  + 

n^a^q^dSJgg  -  24h^H22  +  Sh^Fgg )] /( SSabh'^R^ - 


-  3h2F22^  4fi2b2p2(8Hgg  +  4Hj2  “  Sh^Fgg 
-  3h^F^2^  +  9aV(h^A44  -  +  ^^^44^  4n2a2q2(4j, 

3h^H22)  +  3aVh^(3h2D22  "  4F22)]/(36ab^hV)JCjjj^  + 
pP9[3h2(Dgg  *  2Dj2)  -  4(Fgg  ♦  2Pj2)]/(24h2R)}E^  * 
|rr2[^a2q2(6h^D22  "  8F22)  +  b^p2(4Fgg  -  Sh^Dgg ) j /( 24abh^R; 


3h2(Dg6  *  20^3)  -  4(Fgg  ♦  2Fj2)]/(24h2B)jE^  * 


a2q2{6h^D22  -  8F22)  +  b^p2(4Fgg  -  3h2Dgg)j/(24abh^R)jGj 


=  {-“bl4/4pB^  +  {na,Ig/4pC 


(2.56) 


The  set  of  Galerkin  equations  for  Case  (2)  are  shown  below. 
That  is,  when  m  >*  p,  (m  +  p)  odd  and  n  ^  q,  (n  +  q)  odd,  the 
following  set  of  Galerkin  equations  are  obtained  when  Eqs  (2.39) 
to  (2.43)  are  integrated : 
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Equation  (2.39)  for  u  becomes; 

o 


{-2n,[ 


P^(6h^Djg  -  8Fjg)  +  m^Oh^Djg 


4Fi6)]/[3h2R(p2  -  m^Xq^  -  n^)]J-A^  - 
|2amn2q(3h2D2g  -  4F2g)/[bh2R{p2  -  m^Xq^  -  n^)]J 


B  + 
mn 


•^4mnq^rT 


2,^,_2  2r,  «  2  2„  V  ^2,^  2  2t, 

(4b  p  Fj^g  +  6a  n  Fgg)  +  b  (8n  m  F^g 


12a^h^A2g)j/C3nab^h^R(p^  -  m^Xq^  -  n^)]J 


C  + 
mn 


4nq(p2  +  m2)Ajg/[(p2  - 


-  n2)]J 


E  + 
mn 


j4mq(b2p2A^g  +  a^n^Agg )/[ab(p^  -  m^Xq^ 


-  n2)]|i 


G  =0 
mn 


(2.57) 


From  Equation  (2.40)  for  becomes: 


|-npj^4a^q2(3h2D2e  -  4F2g)  +  2b2m^(4Fj 


3h^Di6)]/[3abh^R(p^  -  m^)(q^ 


-  n^)]}/ 


|mn^p(6h2D25  -  8F2g)/[3h^R(p^  -  m^)(q2 


-  n^)]} 


B  + 
mn 


•^4mnp  1^: 


2n2a2(2q2  +  n^)F2g  -  2n^h^m^F 


3a^b^h^A2g]/[3TTa^bh^R(p^  -  m^)(q^ 


-  n^)]} 


C  + 
mn 


|4np(a2q2A2g  +  b^A^g) /[ab(p2  -  ~  n2)]J 


E  + 
mn 


^4mp(q2  +  n^)A2g/C(P^  -  in^)(q2  -  n2)]jGj 


(2.58) 


Equation  (2.41)  for  w  becomes: 


|pqn[^R^[l6n2a^n^(4H2g  -  Sh^Egg)  +  48n^b^m^(4H^g  - 

3h^F^g)  +  36a^b^{h^A^5  -  Sh^D^g  +  ISF^g)]  +  {4J^q  - 

3h^H2g)  +  3b2h2(3h2D2g-  4F2g)]]/[9nab^h^R2(p^-m^)  (q^-n^>]jAj^ 

+  |mpqj^R^[48n2a2n^(4H2g  -  Sh^Fgg)  +  ISn^b^m^  ( 4H^g  -  Sh^F^g)  + 
36aV{h\5  -  Sh^D^g  +  ISF^g)]  + 

16n2a2n2(4J2g  -  3h^H2g)] /C9na^bh‘*R^(p^  -  m^)(q^  -  n^)]|B^  + 
|mnpqjR^(^256n2(a^n^H2g  +  b^m^Hj^g)  +  72a^b^(h'^A4g  "  ■*■ 

16F4g)j  +  32a^(4n2n2j2g  - 

3b^h^F2g)]/C9a^b^hS^(p^  -  m^Xq^  -  + 


|4npq(2n2a2n^F2g  +  2n\^is?Y - 

aVh2A2g)/CnabVR(p^  -  m^Xq^  -  + 

|4mpq(6n2a^n^F2g  -  2n\^ji?Y - 
3a^b^h^A2g)/C3fTa^bh2R<p^  -  m^Xq^  -  = 


0 


(2.59) 


Equation  {2.42}  for  becomes; 

|4nqj32p^H^g  +  9h^(p^  +  ni^)Djg  -  12h^(3p^  + 
m^)Fi6]/C9h^(p^  -  m^)(q2  -  n^)]]-A^  + 

|mqj4R^[n2b2p2(32Hjg  +  9h^D^g  -  36h^Fjg)  +  n^a^n^CieHgg  + 
9h^D2g  -  24h^F2g)  +  4n2b^m^(3h^Fj^g  -  4H^g)  +  9a^b^(h^A^5  - 


)J  +  4n^a^ 

n^(16J2g  -  24h" 

*^26 

9h'‘F26)]/[9n2abh^R^(p^  - 

2..  2  2.,1 
m  Xq  -  n  )]j 

^mn  * 

^mnq| 

4R^[8rT2b2; 

P^(8Hi6  - 

3h^F^g)  +  An’^&' 

■  - 

4n2b^m^(4Hj^g  + 

Sh^Fjg)  * 

9aV(h‘^A^5  - 

8h^D,.  + 
45 

leF^j))  + 

Af^^An'^n'iAJ^Q 

-  Sh^Hjg) 

+ 

3a^b^h^<3h^D2g 

-  “'■aeO] 

/C9fTab^h^R^(p^ 

2v,  2 

-  m  Xq 

|2nq 

[3h^(p^  + 

2m^)Djg  - 

4(2p^  + 

in^)Fig]/[3h2R(p2  -  m^Xq^  -  n2)3jEj^  + 

|2mq[3b^hS^D^g  +  4b^(m^  -  2p^)Fjg  +  2a^n^(4F2g  - 
3h^D26)]/C3abh^R(p2  -  m^Xq^  -  n^)]jGjj^  =  0 
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And  finally,  Eq  (2.43)  for  becomes: 

|np[^R2[4n2a2[i6(2q^  -  n^)^2e  *  ~ 

12h^(3q^  -  n^)F2g]  +  4fr2b2m^(  16H^g  +  9h^D^g  -  24h^F^g)  + 
36a^b2(h^A^g  -  Bh^D^g  +  ■*■  4n2a2^16(2q^  -  n^)J2g  - 

12h^(3q^  -  n^)H2g  +  9h^q^F2g]j/[9n2abh^R^(p^-m^)(q^-n2)]|Ajjj^ 
+  j4mp[32q2H2g  +  9h'^(q^  +  n^)D2g  - 

12h2(3q^  +  P^)F2g]/[9h‘^(p^  -  m^)(q^  -  + 

|mnp[4R^[4n^a^C4(4q^-n^)H2g-  3h^(2q^+  n^)F2g]  +  4n2b2m^(4H^g 
-  Sh^F^g)  +  36a^b^(h^A^5  -  Bh^D^g  +  IBF^g)]  +  ISrt^a^  [^4(  2q^  - 
n^)J2g  -  3h^q^H2g]]/[9rra^bhS2(p2  -  m^)(q^  -  - 

|2anp[3qVD2g  -  4(2q^-  n^ )F2g] /[bh^R(p^-  m^)(q^-  - 

|2mp[3qVD2g-  4(2q2-  n^ )F2g] /[3h^R(p^-  m2)(q2-  =  0 

(2.61) 

Equations  (2.52)  to  (2.61)  are  now  ready  to  be  put  in  matrix 

format  and  then  input  into  the  eigenvalue  subroutine  to  solve 
2  — 

for  either  «  or  Nj^.  The  details  of  this  procedure  are 
explained  in  the  next  chapter. 


CLAMPED  BOUNDARY  CONDITION 


In  this  section  the  admissible  functions  that  satisfy 
clamped  boundary  conditions  on  all  four  edges  of  the  circular 
cylindrical  shell  panel  are  chosen.  The  following  bending 
boundary  conditions  exist: 

At  X  =  0  and  x  =  a 
w  =  V'  =  V  =0 

X  y 

and 

At  y  =  0  and  y  =  b 
w  =  V'  =  V'  =0 

X  y 

The  membrane  boundary  conditions  will  be  the  same  as  those  in 
the  previous  section:  from  Jones  (9),  a  C-2  type  boundary 
condition. 

At  X  =  0  and  x  =  a 

}  u  ^  0  and  v  =0 

o  o 

and 

At  y  =  0  and  y  =  b 

u_  =  0  and  v  0 
o  o 

The  admissible  functions  in  Eq  (2.49)  become: 


I 
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¥'3j{x,y) 

V'y(x,y) 

w(x,  y) 

Uq(x, y) 

v^(x,y) 


-I  I 

xtfil  n^l 

-I  I 

mri  n^l 

-I  I 
-I  I 
-I  I 

n^l 


A  sin(inrrx/a)  sin(nrty/b) 
mn 


B  sin(iiirTx/a)  sin(n»Ty/b) 
mn 


C  sin(nffrx/a)  sin(nny/b) 
mn 


E  cos(ninx/a)  sin(nny/b) 
mn 


G  sin(mfTx/a)  cos(nny/b) 
mn 


(2.  62) 


The  single  terms  associated  with  the  variations  of  the  degrees 
of  freedom  are: 


6u  — * 
o 

sin(pnx/a) 

sin(qny/b) 

6v  — ► 
o 

sin(pnx/a) 

sin(qny/b) 

<5w  — » 

sin(pffx/a) 

sin(qny/b) 

Sui  — ► 

X 

cos(pnx/a) 

sin(qny/b) 

6w  — ► 

y 

sin(pnx/a) 

cos ( q«y/b ) 

And,  as  in  the  simply  supported  case,  the  indices  for  the  single 
terms  are  p  and  q;  m  and  n  govern  the  number  of  terms  per 
equation,  and  p  and  q  govern  the  number  of  equations. 

The  procedure  for  generating  the  Galerkin  equations  is 
exactly  the  same  as  in  the  last  section.  However,  as  outlined 
in  Appendix  C,  after  integrating  Eqs  (2.39)  to  (2.43),  four 
cases  give  nonzero  results: 

Case  (1):  m  =  p  and  n  =  q 

Case  (2):  m  =  p  and  n  ^  q,  (n  +  q)  odd 
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Case  (3):  m^p,  (m+p)  odd  and  n  =  q 

Case  (4):  m  p,  (m  +  p)  odd  and  n  q,  (n  +  q)  odd 

If  m,n,p,  and  q  do  not  meet  the  criterion  of  these  four  cases, 

the  five  equations  become  equal  to  zero  when  integrated. 

The  generated  Galerkin  equations  for  case  (1)  are  shown  below. 
Equation  (2.39)  for  u^  becomes: 


|np|n2q2(8Fgg  +  4Fj2)  “  Sb^h^A^gj /( 12bh^R) }c^  - 
|n2j^4R2(a2q2Agg  +  b^p^A^^)  +  a^q^Dggj /( 16abR^ - 

p<„,[4H2(Agg  *  Ai2>  -  =  « 

Equation  (2.40)  for  becomes: 


|naq(4rT2q2F^^  -  3b2h^A22 ) /( IZb^h^R)  - 

{n2pq[4E2(Agg  ♦  A^2)  -  Deg]/(16R2)jE___^  - 
{n2[4R2(aVA22  *  b^p^Agg)  *  b^p^DggJ/dSabR^jjG^  = 
{naqTg’  /4]<..*C^ 
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Equation  (2.41)  for  w  becomes: 


®  "  0  •  ®mn  - 

|[n2R2^32„2^2^2p2^2^2Hgg  +  H^2>  +  + 

I6F44)  +  16n2(a^q^H22  +  +  Qa^bVch^Agg  -  Bh^Dg^  + 

16F5g)j  +  16n^a^q^J22  +  8ff^a^b^q^(2p^»T^Jgg  -  3a^h^F22)  + 
9a'^b\^A22j/(36a^b^h‘^R^)|Cj^  - 

{np[4nV(2Fgg  +  Fjj)  -  3bVAj2]/<12bh2B>}E^  - 

|>iaq(4n2q2p^^  -  3b^h^A22 ) /( I2b Vh)|G|^  = 

|-[ie>t^(a^q^  +  b^p*)!,  ♦  9a^b^h^Ijj/(36abh^)|<o^Cjj^  ♦ 
{n2bp2/(4a)}BjC^ 


(2.66) 


Equation  (2.42)  for  becomes: 

{-[E2[n2«2,2(l6Hg3  +  9h'‘Dgg  -  24h2Fgg)  + 

n^b^p^ClSH^^  +  -  24h^F^^>  +  Qa^b^Ch^Agg  -  8h^Dgg  + 

I6F55))  ^  ”^a2q2(i6Jgg  -  24h2Hge  +  Sh^g)] /{ 36abh V )}a^  - 

|[R^[rr2aV(16H2g  +  Sh^Dgg  -  24h^F2g)  +  rt2b2p2(i6H^g  + 

9h^Dig  -  24h2F^g)  +  ga^b^h^g  -  Bh^D^g  +  ISF^g)]  + 

n2a^q^(16J2g  -  24h^H2g  +  9h^F2g ) j /( 36abh^R^ + 

O  C  +0  E  +O  G  =  |-abT^/4WA 

mn  mn  mn  \  4'  mn  ^2  67) 

And  finally,  Eq  (2.43)  for  w  becomes: 

{-[R^[n^a^q2(16H26  +  9h^D2g  -  24h^F2g)  + 

n^b^p^dSH^g  Bh'^Djg  -  24h^F^g)  +  9a^b^(h^A4g  "  ®^^^45 

I6F45))  ^  -  24h2H26  +  9h%g )] /(36abh V )}a^  - 

|[R^[rT2a2q2(i6H22  +  9^^022  "  ^  nVp^dSHgg  + 

9h\6  -  24h2Fgg)  +  9aV(h\4  '  ^^^4  ^  ^®^44>)  ^ 


n^a^q^dSJgg  -  24h^H22  +  gh^Fgg )] /( 36abhS^ ) + 

0  ■  =  f-abT . /4)<o2b^^ 

mn  mn  mn  ^  ^  J 


70 


The  set  of  Galerkin  equations  for  Case  (2)  are  shown  below. 
That  is,  when  m  =  p  and  n  ^  q,  (n  +  q)  odd,  the  following  set  of 
equations  are  obtained  when  Eqs  (2.39)  to  (2.43)  are  integrated. 


Equation  (2.39)  for  u^  becomes: 


|-TTnpq(3h2D^g  -  4Fjg)/C2h2R(q2 


-  n2)]|/ 


mn 


|nnpq|^3h^(Dgg  +  20^2^  ~  +  2F,  „  )1 /[6h^R( q^ 


66  “  12 


a 


-  n^)]} 


0-C  +0  E  +0  G  =0 

mn  mn  mn 


Equation  (  2.40)  for  becomes: 


B  + 
mn 


(2. 69) 


2a^q^(3h^D2g  -  4F2g)  +  b^p^(4F^g 


3h^D,^)l/[6abh^R(q^  -  n^)]|/ 


®66*] 


mn 


2a^q^(3h2D22  '  4F22)  +  b^p^(4Fgg 


3h^D^^)l/[6abh^R(q^  -  n^)]| 


0  •  +  0  •  E^^  +  0  •  =  -{abnlo  /[rT(q‘ 

mn  mn  mn  I  c 


B  + 
mn 


-  n^)]|<*>' 


mn 


(2.70) 
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Equation  (2.41)  for  w  becomes: 

|nq[R2[l2»TVp2(4H^g  -  3h^Fjg)  +  4n^a.^n^ - 

Sh^Fgg)  +  gaVch'^A^g  -  Sh^D^g  +  16F45>]  ■*■  ^  ^Jgg  - 

Sh^Hgg)  +  SbVoh^Dgg  -  4F2g)]]/[9abVR2(q2  -  n2)]j.Aj^  + 

|qn|^R2[^4rT2bV(8Hgg  +  4H^g  -  Sh^Fgg  -  Sh^F^g)  +  4n2aV(4H22 

-  Sh^Fgg)  +  9a^b^(h^A44  -  +  ^®^44>]  +  ( ^*^22  ' 

3h2H22)  +  Sb^h^Oh^Dgg  -  4F22)]]/C9ab^h^R^(q^  -  + 

O'  +  0  •  +  0  •  =  -|anqT_/(q^  -  n^)WB 

mn  mn  mn  5  J  nin 

(2.71) 

Equation  (2.42)  for  becomes: 


|qn[^R2[l2n2b2p2(4H^g  -  Sh'^F^g)  +  4rT2n2a2( 4H2g  - 

9a2b2(h\g  -  8h\g  +  leF^g)]  +  a2[4»T2n2(4J2g 

Sb^h^Oh^Dgg  -  4F2g)]j/C9ab2hV(q^  -  n2)3|Cj^ 
^nnpqOh^Djg  -  4Fjg)/[2h2R(q2  _  n^)]jE^^  - 

Inqj^bVoh^Djg  -  4F^g)  +  2aV(4F2g  " 
3h2D26)]/[6abh2R(q2  -  n^)]}Gjj^  =  0 


3h2F2g)  + 

-  3h2H2g)  + 


(2.72) 


72 


And  finally,  Eq  (2.43)  for  becomes: 


0  •  A  +  0  •  B 

mn  mn 


|qn^R^j4Tr2b^p2(8Hgg  +  4H^2  -  Sh^Fgg  -  3h^F^2>  4rT2n^a^(4H, 


-  3h^F22)  +  9a^b^(h^A44  -  +  16F^^)j  +  a^  [4rt2n2  ( 4J22 

3h2H22>  +  3bV(3h2D22  '  4F22))]/[9abVR^(q^  -  n2)]|c^  + 


|nnpq^3h^(D 


66  *  2Di2)  -  4(Feg  ,  aFj^jl/Ceh^RCq^ 


-  n^)]|i 


{'"’[bVoh^Dgg  -  4Fgg)  +  26V(4F23  - 
3h^D22)]/C6abh2E<q^  -  =  lanqTg/Cq^  - 


22'!'^^ -  '-■J  mn  v-»  -  /. 

(2.73) 

The  set  of  Galerkin  equations  for  Case  (3)  in  which  m  ^  p,  (m+p) 
odd  and  n  =  q  are  shown  below. 

Equation  (2.39)  for  u^  becomes: 

|nmaq^(3h^Dgg  -  4Fgg )/[2bh^R(p^  -  - 


^nmaq^(3h2D2g  -  4F2g ) /C2bh^R(p^  -  m^)]| 


B  + 
mn 


O  C  +0  E  +0  G  =0 
mn  mn  mn 


(2.74) 


Equation  (2.40)  for  becomes: 


-npqmOh^Dgg  -  4Fgg)/[6h2R(p^  - 


IrrpqmOh^Dgg  -  4F2g ) /C6h2R(p2  -  m^)]} 


B  + 
mn 


0  •  +  0  •  +  0  •  =  0 
mn  mn  mn 


Equation  (2.41)  for  w  becomes: 


(2.75) 


|mp[R^  [ 


4n2a^q^(8Hgg  +  4H^2  “  ~ 


4nVm^(4H^^  -  3h^F^^)  +  9aV(h^A5g  -  Bh^Dgg  +  16Fgg)j  + 
4n2a2q2^4j^^  _  3h^Hgg) j /C9a^bh‘*R^(p^  -  + 


|mp|^R^[l2n2a2q2(4H2Q  -  Sh^Fgg)  +  4rr2b^m^{  4H jg  -  3h^Fjg)  + 

9a^b^<h'^A4g  -  Bh^D^g  +  16F4g)j  +  4fr2a2q^  ( 4J2g  - 
3h^H2e)]/[9a^bh^R^(p^  -  + 


0  •  +  0  •  +  0  ■  =  -|bmpl./(p^  -  m^)]to2A 

mn  mn  mn  1.  ^  J  ^ 


(2. 76) 


Equation  (2.42)  for  becomes: 


0  •  A  +  0  •  B 

mn  Din 


|mp[^R^[^4n2a^q2(8Hgg  +  4H^2  “  4nVm^(4H^^ 

-  +  9a^b^(h‘^Ag5  -  Bh^D^g  +  +  4n2a2q2(4Jgg  - 


3h^Hgg)J/[9a^bh‘^R^(p^ 


-  ni^)]| 


C  + 
mn 


|rTapq^(3h^Dgg  -  4Fgg )/[2bh^R(p2 


|rrmpq<  3h^Dgg-  4Fgg )  /[6h^R(p^-m2 )  ] 


And  finally,  Eq  (2.43)  for  w  becomes: 


0  •  A  +  0  •  B 

mn  Din 


-  m2)]| 

}^mn'  { 


E  + 
Din 


bmplg/(p^- 


(2. 77) 


|mp^R^(^12n^a^q^(4H2g  -  3h^F„c)  +  4TT^b^m^(4H 


26 


16 


3h-F^g)  + 


9a^b^(h^A4g  -  Bh^D^g  +  IBF^g)]  +  4n^a.^q.^(4J2Q 


3h^H2g)]/[9a^bh^R^(p^ 


-  m^)]| 


C  + 
mn 


|napq2(3h2D2g  -  4F2g ) /[2bh^R(p2  )]]■£__  + 


mn 


|nmpq(3h^D2g  -  4F2g ) /[6h2R(p^  -  ni^)]jGnjn 


=  0 


(2. 78) 

The  last  set  of  Galerkin  equations  is  for  Case  (4)  in  which  mp'p, 
(m  +  p)  odd  and  n  q,  (n  +  q)  odd.  These  are  shown  below. 
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Equation  (2.39)  for  becomes: 


0  •  A  +  0  •  B  + 
mn  mn 


|4mnq[^2rT2b^(2p^  +  o^)Fjg  +  Sn^a^n^Fgg 


3a^b^h^A2e]/[3frab^h^R(p^  -  m^)(q^ 


-  n^)]} 


C  + 
mn 


2  2  2  2  2 
4nq(p^  +  m^)A^g/[(p"^  -  m^Xq^ 


-  n2)]| 


E  + 
mn 


4mq(b^P^Ajg  +  a^n^Agg ) /[abCp^  -  m^)(q^  -  n‘')]].G^ 


-  n2)]}c 


=  0 


(2.79) 


Equation  (2.40)  for  becomes: 


0  •  A  +  0  •  B  + 
mn  mn 


|4mnp[2n2a^(2q^  +  n^)F2g  -  2TT2mVFj^g 


3aVh^A2gj/C3rra^bh^R(p^  -  m^)(q^  -  n^)]j- 


C  + 
mn 


4np(a2q^A2g  +  b^m2Ajg)/[ab(p^  -  m^)(q^ 


-  n2)]} 


E  + 
mn 


4mp(q2  +  n^)A2g/C(P^  - 


=  0 


(2.80) 
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Equation  (2.41)  for  vr  becomes: 


0  • 


mn 


+  0 


B 

mn 


+ 


|mnpqjR^[256n2(a^n^H2g  +  b^m^H^g)  +  72a^b^{h^A^g 
16F45)j  +  32a^(4n2n2j2g  - 

3b^h^F2g)]/[9a2b2h^R2(p2  -  m^)(q^  -  + 

|4npq[^2fr2(a2n2F2g  +  b^m^F^g)  - 
a^b2h^A2gj/Cnab2h2R(p2  -  m^)(q^  -  + 

|4mpq[n2(6a^n^F2g  -  2b^m^F^g)  - 

3a^b^h^A2gj/C3na^bh^R(p^  -  m^)(q^  -  =  0 

Equation  (2.42)  for  becomes: 


8h^D._  + 
45 


(2.81) 


|8mnpq(16Hjg  +  " 

24h^F^g)/[9h^(p2  -  m^)(q2  -  n2)]}Aj^  + 

■^4mnpq^l6(Hgg  +  Hj^2^  ■*■  '*’  ^12^ 

24h2(Fgg  +  + 


0  •  C  +  0  •  E 


+  0  •  G 


0 


(2.82) 


And  final ly>  Eq  (2.43)  for  becomes: 

y 

{4mnpq[l6(Hge  4  +  9h^Dgg  +  J)^^)  - 

24h^(Fgg  +  -  m^)(q2  -  n^)]j-Aj^  + 

lemnpqdSHgg  +  Qh^Dgg  -  24h2F2g)/[9h^(p2  -  m^Xq^  - 


+  0 


C  +  0 
mn 


E  +  0 
mn 


=  0 
mn 


(2.83) 

Equations  (2.64)  to  (2.83)  are  now  ready  to  be  put  in  matrix 
format  and  then  input  into  the  eigenvalue  subroutine  to  solve 


for  either  w  or  N 


!• 


III.  DISCUSSION  AND  RESULTS 


This  chapter  will  describe  the  computer  program  used  to 
calculate  the  natural  frequencies  and  buckling  loads.  It  will 
also  give  physical  descriptions  of  the  circular  cylindrical 
shell  panels  used  and  will  describe  the  subsequent  analysis 
performed  with  those  panels. 

CX)MPUTER  PROGRAM 

One  FORTRAN  program  was  written  for  both  boundary 
conditions.  Both  programs  consist  of  a  main  program  which 
simply  receives  the  user  input  data  and  calls  two  subroutines 
that  perform  the  bulk  of  the  work.  The  first  subroutine 
calculates  the  stiffness  matrix  elements  in  Eq  (2.16).  The 
second  subroutine  uses  these  stiffness  terms  to  set  up  the 
eigenvalue  problem,  and  then  calls  a  subroutine  from  the  IMSL  to 
solve  for  the  eigenvalues  and  eigenvectors.  A  complete  listing 
of  the  program  is  in  Appendix  D.  The  program  is  discussed  in 
detail  below. 

The  main  program,  entitled  "MAINTHESIS",  receives  the  input 
data  and  calls  the  two  subroutines.  The  following  data  is 
collected: 

1)  An  integer  flag  ("1"  or  "2"):  ”1"  to  perform  a 
vibration  problem,  and  "2"  to  perform  a  buckling  problem 
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2)  a,  length  in  x  direction 

3)  b,  circumferential  length  in  y  direction 

4)  R,  radius  of  curvature 

5)  h,  laminate  thickness 

6)  NPLYS,  number  of  plys  in  the  laminate 

7)  9^,  orientation  angle  of  each  ply 

8)  Ej,  modulus  in  the  1  direction 

9)  Eg.  modulus  in  the  2  direction 

10)  ^12’  modulus  in  the  1,2  plane 

11)  Poisson’s  ratio 

12)  p,  mass  density  (same  for  each  ply) 

13)  M  =  N,  maximum  number  of  terms  in  each  admissible 
function 

The  main  program  declares  all  variables  and  arrays  double 
precision  and  allocates  workspace  for  the  eigenvalue 
calculations.  The  largest  problem  this  program  will  handle  is 
M=N=10.  From  Eqs  (2.49),  (2.50),  and  (2.62),  each  admissible 
function  can  be  approximated  by  a  maximum  of  100  terms, 
resulting  in  an  eigenvalue  problem  that  involves  (500x500) 
matrices.  The  main  program  also  calculates  the  following 
engineering  constants: 

•^21  =  ^12  •  ®2/®=l 
®13  "  ®12 

G23  =  0.86^2 

It  then  uses  the  ply  layup  information  and  the  engineering 
constants  as  input  to  call  the  laminated  stiffness  subroutine. 
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The  laminate  stiffness  subroutine  named  "LAMINAT" 

calculates  the  extensional,  bending,  and  the  higher  order 

stiffness  elements  of  Eq  (2.16).  The  following  restrictions 

apply:  the  laminate  must  be  symmetric,  and  only  the  orientation 

angle  may  change  from  ply  to  ply  (the  density,  thickness,  and 

engineering  constants  remain  the  same).  The  subroutine  uses  the 

following  input  data:  h,  NPLYS,  ©^,  E^,  Eg,  G-^2’  ®13’  ®23’ 

“‘d  *^21'  first  calculates  the  reduced  stiffness  terms, 

[Q. .],  from  Eq  (2.11).  Then  it  calculates  the  transformed 
1 0 

reduced  stiffness  terms,  [Q.  .],  from  Eq  (2.13)  for  each  ply  by 

1 0 

looping  from  the  first  ply  at  the  bottom  of  the  laminate  to  the 
last  ply  at  the  top.  For  each  ply,  the  extensional,  bending, 
and  higher  order  stiffness  terms  are  calculated  and  summed 
together  according  to  Eq  (2.16).  The  output  is  returned  to  the 
main  program,  printed,  and  then  used  as  input  to  the  subroutine 
"GALERK", 

Subroutine  "GALERK"  creates  the  stiffness  and  mass/inertia 
matrices,  forms  the  eigenvalue  problem,  solves  for  the 
eigenvalues  and  eigenvectors,  and  determines  the  mode  shape  along 
the  midlines  of  the  laminate.  In  other  words,  it  calculates 
w(a/2,y)  and  w(x, b/2).  The  subroutine  is  by  far  the  largest 
portion  of  the  entire  program  and  is  also  the  only  part  of  the 
whole  program  that  is  boundary  condition  dependant.  That  is, 
for  the  simply  supported  boundary  condition,  the  subroutine  will 
generate  the  Galerkin  equations  using  Eqs  (2.52)  to  (2.61);  for 
the  claunped  boundary  condition,  the  subroutine  uses  Eqs  (2.64) 
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to  (2.83). 

The  subroutine  has  four  nested  DO  LOOPS.  It  cycles  through 
p,  q,  m,  and  n  and  generates  the  Galerkin  equations  according  to 
the  Cases  of  integration  outlined  in  Chapter  II.  At  each  step 
in  the  iteration  process,  the  equations  are  assembled  into 
matrix  format  as  shown: 


u  — > 

’ 

fA 

o 

mn 

V  — ► 

B 

o 

mn 

w  — ► 

stiffness  matrix 

• 

C 

mn 

E 

X 

mn 

v.  — ♦ 

G 

y 

L  mnj 

(w2  or  Nj) 


mass/inertia  matrix 


mn 

B 

mn 

« 

C 

mn 

E 

mn 

G 

L  innj 

(3.1) 


The  stiffness  matrix  is  the  assemblage  of  the  left  hand  sides  of 

the  Galerkin  equations,  and  the  mass/inertia  matrix  is  the 

assemblage  of  the  right  hand  sides.  Both  matrices  have  (5MN) 

rows  and  (5’M'N)  columns.  Every  value  of  p  and  q  generates  a 

new  row  for  each  of  the  5  degrees  of  freedom,  and  every  value  of 

2  — 

m  and  n  generates  a  new  column,  u  or  is  the  eigenvalue; 

depending  upon  the  integer  flag  input  by  the  user  ("I"  for 

vibration  problem,  or  "2"  for  buckling  problem),  the 

2 

mass/inertia  matrix  will  contain  terms  associated  with  either  a> 
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or  N 


The  vector: 


1‘ 


is  the  associated  eigenvector.  The  stiffness  and  mass/inertia 
matrices  are  then  input  to  the  IMSL  subroutine  DGVCRG  which 
calculates  the  eigenvalues  and  eigenvectors. 

The  subroutine  then  determines  the  fundamental  mode  shape 
along  the  midlines  of  the  laminate.  First  it  substitutes  the 
coefficients  from  the  eigenvector  into  the  deflection 
equation,  which  for  both  boundary  condition  considered  is: 

w(x,y)  =  )  )  C  sin(mfTx/a)sin(nny/b)  (3.2) 

mSl  n^l 

The  circumferential  mode  shape  is  determined  by  calculating 
values  of  w(a/2,y),  and  the  longitudinal  mode  shape  is 
determined  from  w(x,b/2): 


w(a/2,y) 

w(x,b/2) 


Cjjj^s  in  ( mJT/2 )  s  in  (  nrry/b ) 


C _ sin(iWTx/a)sin(nTT/2 ) 

mn 


(3.3) 


The  eigenvalues  and  mode  shape  data  points  are  then  printed. 
(Appendix  E  contains  an  example  for  M=N=2  that  shows  how  the 
Galerkin  equations  are  generated  to  form  the  stiffness  and 
mass/inertia  matrices. ) 


ANALYSIS  PERFORMED 


Several  analytical  studies  were  performed  to  demonstrate 
the  results  of  this  thesis.  First,  the  convergence 
characteristics  of  the  Galerkin  method  were  demonstrated.  Then, 
a  case  comparison  study  with  Donnell  cylindrical  shell  panel 
solutions  was  performed.  The  effects  of  transverse  shear 
deformation,  radius  of  curvature  variation,  and  rotary  inertia 
were  investigated.  Finally,  the  influence  of  varying  the  length 
to  span  ratio  was  studied. 


Shell  Panel 


The  cylindrical  shell  panel  studied  in  this  thesis  is 
constructed  of  graphite-epoxy  material  and  has  the  following 
material  properties: 

=  2.  10  E+07  psi 
Eg  =  1.40  E+06  psi 
®12  ~  6-00  E+05  psi 
1^12  =  0.3 

P  =  1.42454  E-04  slugs/in^  (0.055  Ibm/in^) 

Two  ply  layups  were  investigated: 

C+45  /-45^^]„  (both  of  which  for  convenience  will  be  referred 

to  as  [0/90]  and  [±45]  ).  The  latter  ply  layup  will  introduce 
s  s 

more  shear  stiffness  terms  into  the  formulation.  Tables  3.1  and 
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3.2  con'bain  “the  s'biffness  'terms  calculated  from  subrou'tine 


"LAMINAT".  These  stiffness  terms  will  be  used  in  all  analysis 
throughout  this  chapter,  except  for  the  Donnell  comparison 
study. 


Table  3.1  Panel  Stiffness  Elements  (h  =  1.0  in. , [0/90]  ) 

s 


Extensional  Stiffness  Elements 

A^^  =  11267605.634 

A^2  =  422535.211 

Agg  =  11267605.634 

Ai6  =  0-^ 

^26  =  00 

Agg  =  600000.0 

A..  =  540000.00 

44 

A45  =  0.0 

Agg  =  540000.0 

Bending  Stiffness  Elements 

=  1555164.319 

D^2  =  35211.268 

Dgg  =  322769.953 

Die  =  0.0 

^26  = 

Dgg  =  50000.0 

=  41250.0 

O45  =  0.0 

Dgg  =  48750.0 

Higher 

Order  Stiffness  Elements 

=  256382.042 

F^2  =  5281.690 

Fgg  =  25308.099 

Fig  =  0.0 

F26  =  0.0 

Fg6  =  7500.0 

-  6046.875 

44 

F45  =  0.0 

Fgg  =  7453.125 

=  46814.088 

H^2  =  159 

Hgg  =  3487.723 

Hig  =  0.0 

®26  = 

Hgg  =  1339.286 

=  9152.886 

Jj2  =  183.392 

Jgg  =  628.022 

J16  = 

J26  =  0.0 

Jgg  =  260.417 

3 

Units:  A.  .  are  Ib/in,  D.  .  are  lb- in,  F.  .  are  lb  -  in, 

*  J  X  J  X  J 

5  7 

H.  .  are  lb  in,  and  J.  .  are  lb  in 
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Table  3.2  Panel  Stiffness  Elements  (h  =  1.0  in,  [±  45]  ) 

s 


Extensional  Stiffness  Elements 

=  6445070.423 

A^2  =  5245070.423 

A22  =  6445070.423 

Ai6  = 

^26  “ 

Agg  =  5422535.211 

A^4  =  640000.00 

A45  =  0.0 

A55  =  540000.0 

Bending  Stiffness  Elements 

=  537089.202 

Dj^g  =  308098.592 

D..  =  45000.0 

44 

Di2  =  437089.202 
D2g  =  308098.592 
D45  =  -3750.000 

D22  =  537089.202 

Dgg  =  451877.934 

Dgg  =  45000.0 

Higher  Order  Stiffness  Elements 

Fjj  =  80563.380 

Fjg  =  57768.486 

F.j,  -  6750.0 

Fj2  =  65563.380 
F2g  =  57768.486 
F45  =  -703.125 

F22  =  80563.380 

Fgg  =  67781.690 
^55  ""  6750.0 

=  14386.318 

Hjg  =  10831.591 

H^2  =  11707.746 
H2g  =  10831.591 

H22  =  14306.318 

Hgg  =  12103.873 

=  2797.340 

Jj^g  =  2131.216 

Jj2  =  2276.506 

Jgg  =  2131.216 

J22  =  2797.340 

Jgg  =  2353.531 

3 

Units;  A.  .  are  Ib/in,  D.  .  are  lb- in,  F.  .  are  lb  in, 

*  V  *  J  1  0 

5  7 

H.  .  are  lb  • in,  and  J.  .  are  lb  • in 

X  J  X  J 
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gftXgrkin 


As  Bowlus  (3)  points  out  in  his  thesis,  one  needs  to 
determine  if  the  Galerkin  technique  converges  to  an  exact 
answer.  This  section  does  not  attempt  to  prove  the  convergence 
of  the  Galerkin  technique.  Instead,  it  shows,  as  did  (24),  the 
necessary  (but  not  sufficient)  condition  that  the  frequencies 
and  buckling  loads  drop  by  smaller  and  smaller  amounts, 
approaching  exact  values  asymptotically,  as  the  values  of  M  and 
N  are  increased.  Referring  to  Eq  (2.49),  if  M=N=2  then  each 
admissible  function  is  approximated  by  4  terms;  if  M=N=10, 
there  are  100  terms,  and  so  on.  M=N=10  was  set  as  the  maximum 
convergence  limit  due  to  computer  memory  limitations  and  lengthy 
CPU  run  times. 

Table  3.3  displays  the  Galerkin  convergence  characteristics 

of  the  natural  frequency  for  several  arbitrary  panel 

configurations.  Table  3.4  shows  the  convergence  for  the 

critical  buckling  loads.  Finally,  Figures  3.1  and  3.2  show 

plots  of  the  frequency  and  buckling  convergence  tendencies  for 

h/R=l/5  and  b/h=20.0  for  [±45]^  laminates.  All  data  indicates 

s 

the  natural  frequencies  tend  to  converge  faster  than  the 
buckling  loads.  In  other  words,  vibration  problems  need  lower 
values  of  M  and  N  than  buckling  problems  to  achieve  converged 
solutions . 

The  difference  in  buckling  load  and  natural  frequency 
convergence  tendencies  is  explained  by  the  mode  shape  of  the 
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deformed  panel.  In  general,  for  both  the  frequency  and  buckling 
problems,  the  longitudinal  mode  shape  behaves  like  that  of  a 
flat  plate:  usually  one  full  sine  wave  or  one  half  sine  wave. 


Table  3.3 


Galerkin  Convergence 
Fundamental  Frequency  ( rad/sec } 


b  =  10.0  in 

b  =  15.0  in 

b  =  20.0  in 

M  =  N 

u 

Decrease 

CO 

Decrease 

CO 

Decrease 

2 

30840.4 

1 

1 

1 

1 

20320.5 

1 

1 

1 

1 

15647.9 

1 

1 

1 

1 

4 

27738.5 

10.  1% 

16546.3 

18.658 

11866.7 

24.258 

6 

27608.4 

0.  47X 

16383.5 

0.9958 

11711.7 

1.3158 

8 

27598. 1 

0.0458 

16342.7 

0.2558 

11665.7 

0.39% 

Clamped  Boundary  Condition 

Ci45]^,  R  =  5.0  in,  h  =  1.0  in,a/b=l 
s 


w(x, b/2)  in  Eq  (3.3)  takes  on  this  shape  as  x  varies  from  0  to  a. 

The  circumferential  mode  shape,  w(a/2,y>,  behaves 
differently  for  the  two  problems.  For  vibration,  there  is 
generally  1.0  to  1.5  full  sine  waves  in  the  circumferential 
direction  from  y  =  0  to  y  =  b.  Interestingly,  the  mode  shape  is 
independent  of  the  degree  of  accuracy  chosen:  M=M=2  generally 
produces  the  same  shape  as  M=N=10. 

On  the  other  hand,  the  buckling  mode  shape  depends  a  great 
deal  upon  the  degree  of  accuracy.  The  general  trends  can  be 
explained  by  an  example.  Refer  to  table  3.4,  clamped  boundary 


condition,  R  =  5  in.  b  =  20  in.  M=N=2  generates  Nj=1388936.8 
Ib/in.  The  circumferential  mode  shape  is  a  single  half  sine 
wave.  For  M=N=10,  Nj^=309620.0  Ib/in  (4.5  times  lower),  and 
there  are  six  full  sine  waves  in  the  circumferential  direction. 

Table  3.4  Galerkin  Convergence 

Critical  Bucklin  Load  (Ib/in) 


M  =  N 

Decrease 

«1 

Decrease 

2 

542522. 3 

1 

1 

1 

1 

1 

1 

800558.9 

1 

1 

1 

1 

1 

1 

L _ 

4 

380559.9 

29. 9X 

603021.4 

24.  7% 

6 

360626.9 

5.2% 

382408.0 

36.6% 

8 

359194. 1 

0.4% 

329291.8 

13.9% 

10 

358660.4 

_ 

0. 1% 

305460. 9 

7.2% 

Simply  supported  boundary  condition 

[±45]  ,  h=1.0  in,a/b=l,R=5.0  in 
s 


b  =  20.0  in 

b  =  30.0  in 

M  =  N 

«1 

Decrease 

Decrease 

2 

1388936.8 

1720640. 7 

4 

488639.3 

64.8% 

764410.9 

55.6% 

6 

347096.8 

29.0% 

449037. 7 

41.3% 

8 

311436. 4 

10.3% 

340343.2 

24.2% 

10 

309620.0 

0.6% 

304491.6 

10.  5% 

Clamped  boundary  condition 

C±45]^,h=1.0  in,  a/b  =  1.  R=5.0  in 
s 


•nil 
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Bushnell  (6)  found  this  same  type  of  mode  shape  behavior  for 
axially  compressed  cylindrical  shells.  It  is  clear  that  more 
terms  are  needed  to  accurately  model  the  buckling  mode  shape, 
which  explains  the  slower  convergence  tendencies  for  certain 
geometries. 

All  panel  configurations  used  in  this  thesis  displayed 
excellent  frequency  and  buckling  load  convergence  towards  exact 
answers.  This  data  does  not  prove  convergence,  but  it 
definitely  demonstrates  convergence  tendencies.  The  drawback 
with  the  Galerkin  technique  is  that  in  order  to  obtain  extremely 
accurate  answers  that  require  M  and  N  be  greater  than  10,  a 
great  deal  of  computer  resources  is  required.  This  higher 
accuracy  requirement  has  more  application  with  the  buckling 
loads,  since  they  don’t  converge  as  fast  as  the  natural 
frequencies. 


Cowparispn  With  Donnell  Solution. 

Reddy  and  Liu  (16)  examined  laminated  circular  cylindrical 
shell  panels  using  Donnell  theory  with  parabolic  transverse 
shear  modeling.  The  equations  of  motion  for  the  circular 
cylindrical  shell  panel,  Eq  (2.33),  will  degenerate  down  to  the 
Donnell  equations  of  motion  by  dropping  the  appropriate  higher 
order  terms  in  Eq  (2.33a)  as  previously  discussed  in  Chapter  II. 
Reddy  found  an  exact  solution  to  the  equations  of  motion  for 
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simply  supported  boundary  conditions  using  Navier's  method.  The 

Navier  solution  exists  only  if  the  following  stiffnesses  are 

equal  to  zero:  A.g  =  D.g  =  =  ”i6  =  °  ^  ^45  = 

®45  ■  ^45  =  0.  This  restricts  his  analysis  to  panels  with 

[0/90]  ply  layups, 
s 

Reddy  used  different  engineering  constants  in  his  work  than 
those  used  in  this  thesis.  The  following  values  were  used  in 
the  comparison: 


=  2.1  E+07  psi 
Eg  =  8.4  E+05  psi 
Gj2  =4.2  E+05  psi 

®13  "  ®12 

^23  ~  E+05  psi 


0.  25 

1.0  slugs/in^ 


(Note  an  extremely  large  value) 


These  numbers  give  the  1.0  in.  thick  cylindrical  shell  panel  the 
stiffness  terms  shown  in  Table  3.5.  Table  3.6  compares  Reddy's 
answers  using  the  Navier  solution  with  those  of  this  thesis 
using  the  Galerkin  technique.  Note  that  Donnell  theory  limits 
the  maximum  h/R  ratio  to  be  about  1/50,  as  discussed  in  Chapter 


II. 
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Table  3.5  Sbiffness  Elements  for  the  Reddy  Comparison 
(h  =  1.0  in,  [0/90]  ) 


Extensional  Stiffness  Elements 

A^^  =  10947368.421 

Aj2  =  210526.316 

Agg  =  10947368.421 

Ai6  = 

^26  = 

Agg  =  420000.0 

A^^  =  294000.00 

A45  =  0.0 

Agg  =  294000.0 

Bending  Stiffness  Elements 

=  1543859.649 

Dj^g  =  17543.860 

Dgg  =  280701.754 

D,g  =  0.0 

^26  = 

Dgg  =  35000.0 

=  16625.0 

D45  =  0- 0 

Dgg  =  32375.0 

Higher 

Order  Stiffness  Elements 

=  255263. 158 

Fjg  =  2631.579 

Fgg  =  18421.053 

F,g  =  0.0 

Fjg  =  0. 0 

Fgg  =  5250.0 

F44  =  2198.438 

=  0. 0 

Fgg  =  5151.563 

=  46640.038 

H^g  =  469.925 

Hgg  =  2232. 143 

Hjg  =  0.0 

*^26  “ 

^66  "  037.50 

=  9120.294 

Jjg  =  91.374 

Jgg  =  382.630 

J16  =  0.0 

J26  =  0.0 

Jgg  =  182.292 

Units:  A.,  are  Ib/in,  D.  .  are  lb- in,  F.  .  are  lb  ■  in, 

X  ^  10  1 0 

5  7 

H.  .  are  lb  •  in,  and  J.  .  are  lb  • in 
1  1  o 
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Table  3.6  Donnell  Frequency  Comparison 


Fundamental  Frequency  (rad/sec) 


a  =  b  =  100.0  in. 

R  (in) 

Navier 

Galerkin 

Error  (X) 

500.0 

.002 

1.86602 

1.8697 

+  .2 

1000.0 

.001 

1. 52416 

1.52458 

+  .03 

2000.0 

.  0005 

1. 42519 

1.42529 

+  .007 

6000. 0 

.0002 

1.39585 

1.39623 

+  .03 

a  =  b  =  10.0  in. 

R  (in) 

h 

R 

Navier 

Galerkin 

Error  (X) 

50.0 

.02 

108.4237 

108.6415 

+  .2 

100.0 

.01 

108.0571 

108. 109 

+  .05 

200.0 

.005 

107.9655 

107.9753 

+  .009 

500.0 

.002 

_ 

107.9655 

107.9379 

-  .03 

Simply  Supported  Boundary  Condition 
CO/90]^.  h  =  1.0  in. 

Table  3.6  validates  the  accuracy  of  the  higher  order  theory  as 
it  applies  to  Donnell  type  problems.  The  excellent  agreement 
between  the  higher  order  theory  and  the  Donnell  equations  is 
attributed  to  the  h/R  region  involved.  As  explained  earlier, 
since  the  maximum  h/R  value  is  1/50,  the  higher  order  terms  in 
Eq  (2.33a)  approach  zero;  the  higher  order  equations  of  motion 
reduce  to  Reddy’s  Donnell  equations.  Table  3.6  also  shows  the 
Galerkin  technique  to  be  an  excellent  approximation  method. 


IXflnSYgrge  Shsac  Defornation  Analysis 


This  section  will  compare  the  parabolic  transverse  shear 
model  used  in  this  thesis  with  the  Hindi in  transverse  shear 
model  and  the  classical  Kirchhoff  model,  which  doesn't 
incorporate  transverse  shear.  This  section  is  devoted  to  flat 
plate  comparisons,  R  -»  oo. 

Classical  plate  theory  with  no  modeling  of  transverse  shear 

makes  the  plate  too  stiff;  consequently,  the  theory 

overpredicts  the  natural  frequencies  and  buckling  loads. 

Therefore,  plates  modeled  with  transverse  shear  will  have  lower 

frequencies  and  buckling  loads  than  Classical  plates. 

Furthermore,  the  more  accurate  parabolic  transverse  shear  model 

should  have  lower  frequencies  and  buckling  loads  than  the 

Mindlin  model.  These  statements  are  verified  by  comparing  the 

parabolic  solutions  with  Bowlus’  (3), (4)  and  Palardy's  (13) 

Mindlin  solutions  and  Jones'  (9)  Classical  solutions.  Bowlus 

used  the  Galerkin  method,  and  Palardy  used  the  Levy  method  to 

arrive  at  their  flat  plate  answers.  Jones  has  closed  form 

solutions  for  the  buckling  loads  and  natural  frequencies  of 

simply  supported  specially  orthotropio  laminated  plates  using 

Classical  thin  plate  theory,  ie,  the  Kirchhoff  assumptions.  The 

fundamental  frequency  for  a  classical  thin  plate  with  a  ply 

layup  of  [0/90]  is: 

s 


« 
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-J 


2  0  5 

^  =  -  -6'.5~  [Pll/^^  +  2{Dj2  +  2Dgg)/(aV)  +  ^>22/^^] 

If  the  aspect  ratio,  a/b,  is  greater  than  2.5,  the  critical 
buckling  load  for  this  laminate  is: 

►  2 

Ni  =  ^  I^D^g  2Dgg  +  (3.5) 

The  bending  stiffness  terms  in  these  two  equations  are  obtained 
from  Table  3.1. 

Table  3.7  compares  the  natural  frequencies  of  the  parabolic 
and  Mindlin  transverse  shear  models  with  the  Classical  model 
using  Eq  (3.4).  Table  3.8  compares  the  parabolic  buckling  loads 
with  the  classical  buckling  loads  using  Eq  (3.5).  Both  tables 
display  the  expected  results,  but  with  one  exception; 

► 

Table  3.7  Classical  Frequency  Comparison 


Fundamental  Frequency  (rad/sec) 


a  (in) 

Parabolic 

Mindlin 

Classical 

Classical  Error 

5.0 

32459.7 

33210.67 

48481.45 

+  49.3  % 

10.0 

10519.85 

10657. 15 

12120. 36 

+  15.2  X 

20.0 

2910.64 

2913.32 

3030.09 

+  4.  1  X 

30.0 

1322.20 

1322.56 

1346.71 

+  1.9  X 

40.0 

749.66 

749.47 

757.52 

+  1.0  X 

50.0 

481.57 

483.29 

464.81 

+  0.7  X 

Simply  Supported  Boundary  Condition 

R  =  00,  C0/90]„,  h  =  1.0  in,  a/b  =  1 
s 
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T&ble  3.8  Classical  Buckling  Comparison 


Critical  Buckling  Load  (Ib/in) 


b  (in) 

Parabolic 

Classical 

Error 

5.0 

432811.14 

666161.06 

+  53.9  % 

10.0 

146354.07 

166540.27 

+  13.8  % 

20.0 

40243.73 

41635.07 

+  3.5  X 

30.0 

18226.55 

18504.47 

+  1.5  X 

40.  0 

10321. 34 

10408.77 

+  0.8  X 

50.  0 

6626. 29 

6661.61 

+  0.5  X 

Simply  Supported  Boundary  Condition 

R  ^  00  ,  [0/90]„,  h  =  1.0  in,  a/b  =  3 
s 

Ironically,  there  is  almost  a  perfect  match  between  the 
frequencies  for  the  parabolic  and  Mindlin  cases.  This  is 
probably  because  the  simply  supported  boundary  condition  is  so 
"ideal".  There  are  very  good  convergence  characteristics;  in 

fact,  for  the  [0/90]  ply  layup,  the  convergence  is  immediate 

8 

for  M  =  N  =  2.  For  both  the  frequency  and  buckling  cases,  the 
transverse  shear  models  approach  the  classical  solutions 
asymptotically  at  a/h  (or  b/h)  values  of  40.0  to  50.0.  See 
Figures  3.3  and  3.4. 
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Figure  3.3  Transverse  Shear  vs  Classical  Frequencies 


•Ml 


Tables  3.9  and  3.10  compare  parabolic  bransverse  shear 
frequency  solutions  with  those  of  Mindlin  theory  for  [±45] 

5 

laminates.  Table  3.9,  the  simply  supported  case,  shows  the  same 
trend  as  before;  parabolic  and  Mindlin  solutions  are  virtually 
equal . 


Table  3.9  Parabolic  vs  Mindlin  Shear  Models 

Simply  Supported  Boundary  Condition 


Fundamental  Frequency  (rad/sec) 


M  =  M 

Parabolic 

Mindlin 

Error  {%) 

2 

3656.39 

3643. 01 

-  .37 

4 

3596.80 

3573.37 

-  .65 

6 

. 

3571.40 

3539.91 

-  .88 

8 

3557. 18 

3520.58 

o 

1 

R  -►  00,  [±  46]„.  h  =  1.0  in,  a=b=20.0  in 

S 


The  expected  departure  of  the  Mindlin  theory  from  the  parabolic 
theory  is  evident  for  the  clamped  boundary  condition  in  Table 
3. 10.  For  each  value  of  M  and  N,  the  parabolic  model  produces 
more  accurate  frequencies. 
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Table  3. 10  Parabolic  vs  Mindlin  Shear  Models 
Clamped  Boundary  Condition 

Fundamental  Frequency  (rad/sec) 


C0/90]g 


Mindlin  Error  {%) 


M  =  N 

Parabolic 

Mindlin 

2 

6609. 30 

7869.20 

6 

5349.30 

5698.35 

8 

5333.73 

5644.82 

[± 

45]^ 

M  =  N 

Parabolic 

Mindlin 

2 

6537.40 

7705.62 

6 

5098.60 

5542.46 

8 

5058.90 

5231.92 

+  5.8 


Error  (%) 


+  17.9 


+  8.7 


associated  with  and  v^,  are  coupled  together,  but  as  a  whole 
are  decoupled  from  the  bending  Galerkin  equations:  those 

associated  with  w,  w  ,  and  w  .  As  h/R  is  increased  from  0 

X  jr 

up  to  the  maximum  value  of  1/5,  membrane  and  bending  couple 
together,  the  cylindrical  panel  becomes  deeper  and  stiffer,  and 
the  natural  frequencies  and  buckling  loads  increase.  The 
following  specific  h/R  ratios  are  investigated: 

0:  Flat  Plate 

1/50:  Donnell  Equation  Maximum  Limit 
1/20:  Intermediate  Value 

1/5:  Maximum  Limit  of  Higher  Order  Theory 
The  figures  in  this  section  are  plots  of  <•>  or  vs.  b/h. 
The  panels  are  square,  a/b  =  1,  and  M  =  M  =  6  is  used  as  the 
degree  of  accuracy.  (The  two  buckling  load  plots  for  h/R  =  1/5 

required  M  =  N  =  8  for  b/h  values  of  5,  10,  and  15  and  M=N=10 
for  b/h  values  of  20  and  30  to  obtain  proper  convergence. )  The 
circumferential  length  to  thickness  ratio  (b/h)  is  varied  from 
5,0  to  50.0. 

The  four  fundamental  frequency  plots  are  shown  in  Figures 
3.5  through  3.8.  All  curves  follow  the  same  basic  trends:  the 

frequencies  are  high  at  b/h  =  5.0  and  then  decrease  as  the  panel 
gets  thinner,  approaching  constant  values  asymptotically  at  b/h 
values  of  40  to  50.  Also,  as  expected,  the  frequencies  increase 
due  to  membrane  and  bending  coupling  as  h/R  is  increased  from  0 
to  1/5.  The  effect  of  this  coupling  is  shown  in  Table  3.11  in 
which  panel  to  flat  plate  frequency  comparisons  are  made. 


Figure  3.5  Curvature  Effeoti 
Simply  Supported 


•Till 


OJSLSJLS  h/R=0 
°-o  °  g  °  h/R*1/50 
h/R*1/20 
UAAJ  h/R=1/5 


•nil 


[0/90]g 

[±45]g 

h/R 

b/h  =  10 

b/h  =  30 

b/h  =  10 

b/h  =  30 

1/5 

1.54 

4.52 

2.02 

4,  37 

1/20 

1.04 

2.65 

1. 14 

2.48 

Simply  Supported  Boundary  Conditions 


[0/90]g 

t±45]^ 

h/R 

b/h  =  10 

b/h  =  30 

b/h  =  10 

b/h  =  30 

1/5 

1.27 

2.67 

1.78 

3.37 

1/20 

1.02 

1.54 

1.  10 

2.05 

Clamped  Boundary  Conditions 


Wp  =  flat  plate  natural  frequency 
h  =  1.0  in,  a/b  =  1 

With  few  exceptions,  the  [±45]  laminates  generally  yield 

S 

higher  frequencies  than  the  [0/90]  laminates  for  both  boundary 

s 

conditions  considered.  The  [±45]  laminates  have  inplane  shear 

s 

stiffness  terms  (Dj^g.  Dgg,  Fgg,  Hj^g,  Hgg,  Jj^g,  Jgg)  that 

account  for  these  higher  frequencies.  (See  Table  3.1  and  3.2.) 

Referring  to  Figures  3.5  and  3.6,  for  the  simply  supported 

boundary  condition,  the  difference  in  frequency  for  the  two 

laminates  gets  greater  as  the  curvature  increases.  For  h/R  =  0, 

the  frequencies  are  about  20%  higher  for  the  [*45]  laminate  for 

s 


all  b/h  values.  For  h/R  =  1/50,  the  frequencies  are  about  20% 
higher  at  b/h  =  5  and  are  about  50*  higher  at  b/h  =  50.  For  h/R 
=  1/20,  the  frequencies  vary  from  20*  higher  to  80*  higher,  and 
for  h/R  =  1/5  the  frequencies  are  about  25*  higher  for  all  b/h 
values. 

For  the  clamped  boundary  condition,  the  [0/90]  laminate 

s 

yields  higher  frequencies  than  the  [t45]  laminate  for  flat 

s 

plates  (h/R=0}.  But,  as  the  curvature  increases,  the 

frequencies  of  the  [t45]^  laminate  become  greater  than  those  of 

the  [0/90]  laminate.  (See  Figures  3.7  and  3.8.)  For  h/R=l/50, 
s 

the  frequencies  for  both  laminates  are  roughly  equal  at  b/h=5, 

but  the  frequencies  are  about  30*  higher  for  the  [t45]  laminate 

s 

at  b/h=50.  For  h/R  =  1/20  the  frequencies  vary  from  roughly  6* 
higher  to  20*  higher,  and  for  h/R  =  1/5  the  frequencies  are 

roughly  30*  higher. 

Table  3.11  displays  a  consistent  trend  mentioned  in  the 
previous  two  paragraphs;  in  general,  as  the  curvature  of  the 
panel  increases,  the  membrane  and  bending  coupling  has  a  greater 
effect  at  larger  b/h  values.  Larger  b/h  values  physically 
equate  to  greater  arclength  around  the  panel.  In  fact,  for  h/R 
=  1/5  at  b/h  =  30  the  cylindrical  panel  is  almost  a  complete 
cylinder. 

For  the  same  ply  layup,  the  frequencies  for  the  clamped 

boundary  condition  are  higher  than  those  for  the  simply 

supported  boundary  condition.  For  the  [0/90]  laminate  the 

s 

difference  is  quite  dramatic.  For  h/R  values  of  0  and  1/50,  the 


frequencies  are  20%  higher  at  b/h  =  5  and  over  100%  higher  at 

b/h  =40  to  50.  For  h/R  =  1/20  the  frequencies  are  roughly  30% 

higher  for  all  b/h  values,  and  for  h/R  =  1/5  the  frequencies  are 

roughly  20%  higher.  Figures  3.6  and  3.8  show  the  same  trend  for 

the  [±45]  leuninate,  but  the  increases  in  frequency  for  the 
s 

clamped  boundary  condition  over  the  simply  supported  boundary 

condition  are  not  quite  as  large  as  they  were  for  the  [0/90]  . 

8 

Figures  3.9  and  3.10  show  the  two  buckling  plots  done  for 
the  [±45]  laminate.  The  same  trends  of  the  frequency  plots  are 

S 

evident;  high  buckling  loads  at  small  b/h  values,  decreasing 
asymptotically  to  constant  loads  at  b/h  values  of  40  to  50. 
There  are  very  significant  increases  in  the  buckling  loads  as 
h/R  is  increased,  and  as  Table  3.12  shows,  the  membrane  and 
bending  coupling  has  a  greater  effect  as  the  circumferential 
distance  around  the  panel  increases. 

The  [±45]  laminate  yields  higher  buckling  loads  for  the 

S 

clamped  boundary  condition  than  for  the  simply  supported 
boundary  condition  for  h/R  values  of  0,  1/50,  and  1/20.  The 
buckling  loads  are  roughly  the  same  for  both  boundary  ccmditions 
for  h/R  =  1/5.  Similarly,  as  Table  3.13  indicates,  the  [0/90] 

8 

laminate  yields  buckling  loads  for  the  clamped  boundary 
condition  that  are  upwards  of  5(^  higher  than  the  buckling  loads 
for  the  simply  supported  boundary  condition. 


Figure  3.9  Curvature  Effects  on  Buckling  Load 
Simply  Supported  Boundary,  [±45] 


iiTii. 


Table  3. 12  Buckling  Load  Coupling  Effects 


Nl/Nl 

_ P 


Simply  Supported 

Clamped 

h/R 

b/h  =  10 

b/h  =  30 

b/h  =  10 

b/h  =  30 

1/5 

1.63 

9.35 

1.43 

5.61 

1/20 

1. 08 

3.45 

1. 06 

2.22 

Nj^  =  flat  plate  buckling  load 
P 

h  =  1.0  in.  a/b  =  1,  [±45] 

s 


Table  3.13  Buckling  Loads  for  [0/90]  Laminates 

s 

Critical  Buckling  Load  (Ib/in) 


b/h 

Simply  Supported 

- 1 

Clamped 

5 

392281.3 

454819.2 

20 

104118.3 

195617.0 

1  50 

1 _ 

94020.0 

134723.6 

R  =  20.0  in,  h  =  1.0  in,  a/b  =  1 
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BQtary  Inartla  Apalysis- 

Ano'ther  feature  of  this  thesis  is  the  incorporation  of 

rotary  inertia  into  the  vibration  problem.  Referring  to  Eqs 

(2.32)  and  (2.33),  the  following  accelerations  contribute  to  the 

rotary  inertia:  w,  ,  w,  ,  w,  ,  w,  ,  ,  W  ,  W  , 

X  XX  y  ’  ’  yy  ’  X  x,  x  '  y  ' 

V'.^,  „.  If  rotary  inertia  is  eliminated,  the  only  inertia  term 
left  is  Ij^w  on  the  right  hand  side  of  the  equation  of  motion  for 
w  in  Eq  (2.33).  Likewise,  the  Galerkin  equations  all  reduce  to 
a  single  term  on  the  right  hand  sides.  The  end  result  is  a  much 
less  populated  mass/inertia  matrix  in  Eq  (3.1). 

Bowlus  (4)  and  Palardy  (13)  both  found  Rotary  inertia  to  be 
negligible  for  the  vibration  of  flat  plates  modeled  with  Hindi in 
transverse  shear  theory.  The  results  are  the  same  for  this 
thesis.  Several  cases  were  run  for  both  simply  supported  and 
clamped  boundary  conditions,  which  included  various  h/R  ratios, 
ranging  from  0  (flat  plate)  to  1/5,  and  various  a/h  (b/h) 
ratios.  The  results  were  all  the  same.  With  rotary  inertia 
removed,  the  fundamental  frequencies  are  only  about  0.5%  higher. 
The  overall  conclusion  is  rotary  inertia  has  a  negligible  effect 
for  first  mode  analysis.  It  does  become  more  important  for  the 
higher  modes,  however. 
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gflcm&l  Sires-s 


The  transverse  normal  stress,  o'^,  was  set  equal  to  zero 
under  the  assumptions  of  plain  stress  constitutive  relations. 
As  explained  in  Chapter  II,  this  is  a  good  assumption  for  most 
geometries,  and  is  therefore  used  quite  extensively  in 
plate/panel  analyses.  Some  of  the  geometries  analyzed  in  the 
previous  sections  “stretch"  the  accuracy  limitations  of  the  cr^ 
assumption  and  warrant  specific  comments.  First,  the  flat  plate 
is  examined. 

For  flat  plates,  the  validity  of  assuming  o  =  0  is 

z 

dependant  upon  the  minimum  value  of  a/h  (or  b/h)  chosen.  Koiter 

<10)  states  that  the  trcmsverse  normal  stress  is  in  general  of 
2  2 

order  h  /L  times  the  bending  stress,  and  transverse  shear 
strain  is  h/L  times  the  bending  stress,  where  L  is  the  smallest 
wavelength  of  the  deformation  pattern  on  the  mid  surface.  For 
plates,  L  is  almost  always  equal  to  the  smallest  dimension  (a 
or  b).  Therefore,  for  the  plate: 


T  ,T  s:  h/a  (O'  ,a  ) 
xz  yz  '  '  x'  y 


(3.6) 


A  rule  of  thumb  in  classical  plate  theories  is  the  minimum  a/h 


ratio  is  10,  or  a  a;  0.01(o'  .cr  ).  References  (15),  (17),  (3), 

z  X  y 


and  this  author  used  lower  values.  Referring  to  the  previous 


sections,  the  minimum  a/h  (b/h)  ratio  used  is  5;  is  roughly 
4%  of  (or  c/  )  and  20%  of  therefore  becomes 
important  for  these  very  thick  plate  configurations. 

Shells  incorporate  the  ar^  approximations  with  respect  to 
the  flat  plate,  plus  an  additional  accuracy  consideration.  As 
Koiter  (10)  states,  the  transverse  normal  stress  is  of  order  h/R 
times  the  bending  stress.  For  the  shell  panel: 


or  %  h/R  (a  ,0  ) 
z  X  y 

T  ,T  %  h/L  (a  ,0  ) 
xz  yz  X  y 

When  combined  together,  these  equations  give: 


(3.7) 


a  5:  L/R  (t  ,t  )  (3.8) 

z  xz  yz  ! 

By  the  mere  fact  the  maximum  h/R  ratio  used  in  this  thesis  is 

1/5,  a  becomes  important  because  it  is  in  reality  roughly  20% 
z 

of  the  bending  stresses.  For  the  smaller  h/R  ratios  used,  the 

or  effect  is  negligible,  except  for  the  regions  of  small  a/h  as 
z 

explained  above. 

Using  Eq  (3.8),  o  may  be  further  examined  for  the  h/R 

z 

ratio  of  1/5.  L  is  not  always  equal  to  the  dimension  of  the 
shell  panel;  it  varies  with  b/h,  and  is  determined  from  the 
mode  shape  in  Eq  (3.3).  As  discussed  before,  the  longitudinal 
mode  shape  generally  behaves  like  that  of  a  flat  plate:  usually 
one  full  sine  wave  or  one  half  sine  wave.  The  circumferential 
mode  shape  varies,  depending  on  the  geometry  and  on  the  problem 
(buckling  or  vibration). 

The  panel  generally  buckles  into  six  sine  waves  in  the 
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circumferential  direction;  Lft:l/6b  and  L/Ra:l/30b  for  h/R=l/5. 
From  Eq  (3.8),  o  is  roughly  15%  of  )  at  b/h  =  5,  where 

Z  XZ 

the  transverse  shear  is  very  prominent,  a  a:  (t  ,t  )  at  b/h  = 

2  xz  y2 

30,  but  the  transverse  shear  here  is  very  low;  so,  the  effect 
is  negligible. 

For  the  vibration  problem  involving  h/R  =  1/5,  there  is  in 

general  only  1  to  1.5  full  sine  waves  in  the  circumferential 

direction;  L/Ra:2/15b.  o  becomes  important  at  b/h=5  because  it 

z 

is  roughly  66%  of  the  transverse  shear  in  a  region  where  the 
shear  is  very  prominent. 

The  overall  conclusion  of  this  section  is  a  is  important 

2 

for  h/R  values  of  1/5  and  a/h  (b/h)  values  of  5,  especially  for 

the  vibration  problem.  The  overall  trends  displayed  by  the 

data,  however,  are  accurate.  Figures  3.3  through  3.10  display 

logical  and  consistent  trends  for  these  configurations. 

Whitney  (24)  presents  a  method  that  includes  o  effects  and 

z 

would  improve  the  accuracy  for  these  particular  geometries.  In 
his  model,  the  tremsverse  displacement  w  is  a  linear  function  of 
2  and  has  the  form:  w(x,y,z)  =  w^(x,y)  +  z0(x, y),  where  w^(x,y) 
is  the  mid  surface  transverse  displacement,  and  <&(x,y)  is  an 
additional  degree  of  freedom  that  must  be  included  in  the 
constitutive  relations  and  equations  and  motion.  This 

application  would  be  an  interesting  follow-on  to  this  thesis. 


117 


IV.  CONCLUSIONS 


A  theory  applicable  to  symmetrically  laminated  anisotropic 
circular  cylindrical  shell  panels  of  arbitrary  geometries  has 
been  developed.  The  theory  includes  a  through  the  thickness 
parabolic  transverse  shear  stress  auid  strain  distribution  and  is 
valid  for  0  S  h/R  ^  1/5.  Analytical  solutions  for  the 

fundamental  frequencies,  critical  buckling  loads,  and  the 
corresponding  mode  shapes  are  obtained  using  the  Galerkin 
technique.  Simply  supported  and  clamped  boundary  conditions 
were  investigated.  Based  upon  the  analysis,  the  following 
conclusions  are  presented: 

The  strain  displacement  relations  are  very  accurate  for 

OiSh/RSl/lO.  The  results  were  verified  against  the  Donnell 

solutions  for  O^h/R^l/50.  Since  there  is  no  z/R  variation  in 

the  transverse  shear  strains,  and  since  a  and  c  are  assumed 

z  z 

equal  to  zero,  some  precision  is  lost  for  h/R  values  of  1/5. 
However,  the  generated  results  show  very  logical  and  consistent 
trends  at  this  h/R  limit,  and  consequently  the  theory  here  is 
assumed  to  be  a  very  good  approximation. 

The  Galerkin  technique  proved  to  be  am  excellent  method  for 
solving  the  five  coupled  partial  differential  equations  of 
motion  and  boundary  conditions.  The  method  converged  to  exact 
frequencies  very  quickly  for  all  geometries.  Convergence  was 
slower  for  the  buckling  problem,  particularly  for  the  clamped 


18 


boundary  condition  at  h/R  =  1/5  and  high  b/h  ratios.  The  method 
still  works  for  these  cases,  but  at  the  cost  of  a  great  deal  of 
computer  time.  Another  benefit  of  the  Galerkin  technique  is 
that  it  may  be  applied  to  any  desired  ply  layup  and  more  types 
of  boundary  conditions. 

Parabolic  transverse  shear  effects  were  measured  up  against 
classical  solutions  for  simply  supported  flat  plates  with 
symmetric  cross  ply  laminates.  At  a/h  =  5  the  frequency 
obtained  using  transverse  shear  was  49%  lower  than  the  classical 
frequency.  At  a/h  =  40  the  difference  was  only  156.  For  aspect 
ratios  of  3  <a/b  =  3),  the  parabolic  shear  buckling  load  was  5456 
lower  than  the  classical  buckling  load  at  b/h  =  5  and  0.856  lower 
at  b/h  =  50. 

There  is  little  difference  between  the  parabolic  transverse 
shear  model  and  the  Reissner-Mindlin  model  for  simply  supported 
flat  plates.  The  parabolic  model  is  more  accurate  than  the 
latter  for  clamped  plates;  Mindlin  theory  overpredicts  the 
frequencies  by  15-20%  for  M=N=2  and  by  3-5%  for  M=N=8.  The 
margin  of  error  decreases  as  the  number  of  terms  for  each  degree 
of  freedom  increases. 

Transverse  shear  effects  consistently  became  negligible  as 
a/h  (b/h)  approached  40  to  50  for  all  plate  and  panel 
configurations. 

Increasing  h/R  from  0  to  1/5  increased  membrane  and  bending 
coupling  ,  and  drove  the  frequencies  and  buckling  loads  to 
higher  values  for  both  boundary  conditions.  For  both  boundary 


9 


conditions,  the  [±45]  laminates  yielded  higher  frequencies  than 

s 

I  the  [0/90]  laminates,  due  to  the  additional  inplane  and 

s 

transverse  shear  terms  in  the  former.  Both  [t45]  and  [0/90] 

s  s 

laminates  yielded  higher  frequencies  for  clamped  boundary 

i  conditions  than  for  simply  supported  boundary  conditions. 

Buckling  loads  behaved  differently.  The  [±45]^  laminates 

yielded  higher  buckling  loads  than  the  [0/90]  laminate  for 

s 

I  simply  supported  boundary  conditions,  but  [0/90]  buckling  loads 

s 

are  higher  than  [t45]  buckling  loads  for  clamped  boundary 

S 

conditions.  The  [±45]  laminates  have  slightly  higher  buckling 

s 

I  loads  for  clamped  vs  simply  supported  boundary  conditions, 

except  at  h/R  =  1/5  where  the  buckling  loads  for  both  boundary 
conditions  are  roughly  equal.  Finally,  [0/90]^  laminates  have 
I  much  higher  buckling  loads  for  clamped  boundary  conditions  than 

simply  supported  boundary  conditions. 

Rotary  inertia  effects  were  negligible  for  all  panel 
I  configurations  examined.  Fundamental  frequencies  were  only 

about  0.5X  higher  with  rotary  inertia  removed. 
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Appendix  A;  TrflnsYsrss  Shear  and  Maximum 
h/E  Assumptions 


This  appendix  explains  in  detail  the  assumptions  made  about 


the  transverse  shear  strains,  r  and  y  .  discussed  in  Chapter 

yz  xz 

II.  By  exaunining  the  work  of  Dennis  (8),  a  measure  of  the  error 
introduced  by  assuming  no  z/R  variation  with  respect  to  the 


shear  model  is  developed.  The  appendix  focuses  on  y 


yz 


but  it 


should  be  understood  that  similar  conclusions  for  y  apply. 

XZ 

This  thesis  assumes  z/R  ^  0  for  the  transverse  shear 
strains.  It  was  shown  from  Eq  (2.2)  this  resulted  in 

V 


y  =  w, 

yz  'y 


+  V, 


(A.  1) 


R  'z 

Substituting  the  displacement  relations  in  Eq  (2.1)  into  Eq 


(A. 1)  gives : 


yz 


"  '''y  *  R  ]  R° 


Vy  +  2z«^2  +  3z  ©2 


■R^y 


2 

z  ^ 
■R~^2 


3  V 

X^2  R 


(A. 2) 


Since  z/R  ^  0,  Eq  (A. 2)  reduces  to; 


^yz  ~  '^’y  *  *  ^**^2 

Evaluating  Eq  (A. 3)  at  z  =  ±h/2  and  setting  the  two  equations 
equal  to  zero  to  satisfy  the  boundary  conditions  gives: 
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0 


Wy  +  w.y  +  h^2  +  3/4h^e^  = 

Wy  +  w,y  -  +  3/4h^e^  =  0 

from  which  the  following  results: 

^2  =  0 

©2  =  -  4/3h2(V'y  +  w.y) 

By  performing  similar  operations  with  y„_,  similar  expressions 

xz 

are  obtained  for  and  By  substituting  ®2’  ^1’ 

into  Eq  (2.1),  the  displacement  field  in  Eq  (2.3)  is  obtained. 
Of  course,  the  approximation  z/R  ^  0  for  the  transverse  shear 
limits  the  maximum  value  of  h/R  for  which  the  strain 
displacement  relations  in  Eq  (2.2)  are  valid.  By  examining 
reference  (8),  an  accurate  value  for  this  maximum  h/R  limit  may 
be  obtained. 

Dennis  assumed  a  4th  order  displacement  field  rather  than  a 
3rd  order  field.  For  the  circular  cylindrical  shell  panel,  this 
field  is: 

2  3  4 

u  =  u^  +  zv'jj  +  z0j  +  zyj  +  z©j 

V  =  +  zv'y  +  ^  ^^^2  *  ^^®2 

w  =  w  (A. 4) 


Inserting  these  relations  into  Eq  (2.2)  without  making  the 
assumption  z/T?  O  gives  an  exact  expression  for  r  ■ 


+  w,y]  (A.  5) 
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Following  the  similar  procedure,  Eq  (A. 5)  is  evaluated  at  2  = 
±h/2  and  set  equal  to  zero.  Adding  the  two  resulting  equations 
gives ; 


^^^2  2R  ^2  ^2  ~ 


from  which: 


*2  =  ° 


&  -  — =— y 

2  2R  ^2 

Inserting  these  values  into  Eq  (A. 5)  and  again  evaluating  at  z  = 


±h/2  gives: 


■  •  ■ 


(A. 6) 


from  which: 


(A. 7) 


If  h/R  =  1/5,  the  underlined  term  in  Eq  (A. 7)  =  0.005; 

therefore, 

•"E  “  ’  *'y’  -  i 

Inserting  the  values  of  ®2’  ^2  (A.  4),  Dennis 

obtains  exactly  the  same  displacement  field  as  in  Eq  (2.3).  In 
conclusion,  Dennis'  transverse  shear  model  is  accurate  up  to  h/R 
=  1/5  using  the  relation: 


What  is  the  h/R  limit  for  y  used  in  this  thesis,  that  is  Eq 

yz 


(A. 1)  ?  Manipulating  Eq  (A. 8)  gives: 

V 


R  ^’z 


z 

R 


or 


y  -  y 

yzg  yz^ 


z 

R 


hy  "  r] 


(A. 9) 


where 


yz. 


=  the  exact  value  of  y  in  Eq  (A.  8) 


yz 


y  .  =  the  approximate  value  of  y  in  Eq  (A. 1) 

yz^  yz 


and 


R  ['^^y  R  ]  = 


the  error 


Substituting  the  displacement  field  in  Eq  (2.3)  into  Eq  (A. 9) 
gives : 


y  ^  y 

yz^  yz 


Qv  +  - 

4z  _ 

(■2  +  ^z**  ^ 

^  R^  1 

o  1  r2 

1  R  3h2j,2j 

For  z  =  +  h/2  and  h/R  =  1/5,  the  shear  becomes: 
0.  11 


y  -  y  + 

yZj,  xz^ 


„  -V  +  0.0067’^'  -  0.  103w, 

R  o  y  y 


For  a  1.0  in  thick  laminate  and  a  radius  of  curvature  of  5.0  in, 
the  final  result  is: 


^yz  ~  ^xz  0.022v^  +  O.OOeTVy  -  0.103w,  ^ 

This  is  a  small  error,  especially  since  this  thesis  is  concerned 
with  small  deflection  theory  with  rotations  of  around  5.0*. 
Therefore,  using  an  h/R  limit  of  1/5  is  a  good  approximation  for 
the  transverse  shear  expression  in  Eq  (A.l). 


Appendix  B: 


This  appendix  briefly  summarizes  the  approach  taken  for  the 
integration  by  parts  during  the  development  of  the  kinetic, 
strain,  and  potential  energies.  This  development  parallels  that 
presented  by  Shames  and  Dym  (20). 

For  two  functions,  G(x,y)  and  H(x,y),  the  following  scheme 
applies  for  the  integration  by  parts  of  double  integrals: 


rb  pa  pt 

J  J  =  J 


GH 


0  0 


x=a 


-  r  r-' 


dy 


x=0 


dxdy 


0  0 


=  J  [G<a,y)H(a.y)  -  G( 0,  y )H(  0,  y)]dy  J^HG.^dxdy 

0  0 


(B.  1) 


and 


pb  pa  pt 

J  J  =  J 


GH 


0  0 


y=b 


-  f  r-' 


dx 


y=0 


dxdy 


0  0 


=  j  [G(x.b)H(x,b)  -  G(x,0)H(x,  0)]dx  J^G,  ^dxdy 

0  0 


(B.2) 


The  line  integrals  represent  the  boundary  conditions  along 
the  edges  of  the  panel.  Line  integrals  of  the  following  form 
may  be  reduced  further  to  yield  boundary  conditions  at  the  four 


corners  of  the  laminate: 


J  (^G(x,b)H(x.b).^  -  G{x.O)H{x.O),  Jdx 
0 


y=b  x=a  ra  y=b 
=  GH  -  HG.  dx 

y=0  x=0  *  y=0 


=  G(a.b)H{a,b)  -  G(a,0)H(a,0)  -  G(0.b)H(0,b)  + 


G(0,0)H(0,0) 


b)G(x.b).j^  -  H{x.0)G<x,0) 


= r(-  a,y)H(a,y),y  -  G(0, y)H( 0,  y) , ^jdy 


x=a 

y=b  rb 

X 

It 

o 

y=0  Jq  y 

=  G(a,b)H(a,b)  -  G{a,0)H(a,0)  -  G(0.b)H(0.b)  + 

rb  , 


G(0,0)H(0.0) 


-ffHC,. 


y)G(a.y),„  -  H(0,y)G(0,y) 


Appendix  C:  Integration  Formulas  used  in 


Generating  Galerkin  Equations 


MACSYMA  (25)  was  used  to  integrate  the  equations  of  motion 
and  boundary  conditions  to  generate  the  Galerkin  equations  for 
the  simply  supported  and  clamped  boundary  conditions.  Intrinsic 
in  MACSYMA’s  artificial  intelligence  logic  is  the  capability  to 
symbolically  integrate  trigonometric  functions. 

MACSYMA  evaluated  the  following  integrals,  taken  from  (2), 
to  generate  the  Galerkin  equations: 


When  m  =  p: 


cos(mrrx/a)cos<pn’x/a)dx  =  a/2 


sin{mnx/a)sin(pnx/a)dx  =  a/2 


sin(mrTx/a)cos<pnx/a)dx  =  0 


(C.  1) 


(C.2) 


{C.3) 


m 


m 
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Jl 


When  m  ^  p: 


r 


cos(i0nx/a)cos(pnx/a)dx  =  0 


(C 


j: 


sin(inrTx/a)sin(pnx/a)dx  =  0 


(C, 


r 


s  in  ( mfTx/a )  cos  ( pnx/a )  dx 


0  for  (m+p)  an  even  integer 


2am 


- o - for  (m+p)  an  odd  integer 

p^) 


(C 


Similarly,  for 


r 


s  i  n  ( pn  x/a )  cos  ( npix/a )  dx 


0 


0  for  (m+p)  an  even  integer 


2ap 


o  ■  ■  p  for  (m+p)  an  odd  integer 

TT(p'^-  m^) 


(C 


These  same  integrals  apply  for  n  and  q,  when 


independent  variable  is  y,  and  the  integration  is  from  0  to  b 


Appendix  D:  Computer  Programs 


This  appendix  contains  the  computer  listings.  Program 
"MAINTHESIS" ,  the  complete  code  for  simply  supported  boundary 
conditions,  is  listed  first.  This  is  followed  by  the  code  used 
for  clamped  boundary  conditions. 


ooooooo  oooo  o  ono  o  ooo 


♦**♦**  Simply  Supported  Boundary  Condition  ***♦*♦ 


PROGRAM  MAINTHESIS 

C - 

C  CAPT  PETE  LINNEMANN 
C 

C  GA-88D 
C 

C  THE  DETERMINATION  OF  THE  FUNDAMENTAL  NATURAL  FREQUENCY  AND 
C  CRITICAL  BUCKLING  LOAD  OF  AN  ANISOTROPIC  LAMINATED  CIRCULAR 
C  CYLINDRICAL  SHELL  PANEL  INCLUDING  THE  EFFECTS  OF  PARABOLIC 
C  TRANSVERSE  SHEAR  DEFORMATION  AND  ROTARY  INERTIA. 

C 

C  THESIS  ADVISOR:  DR  ANTHONY  PALAZATTO 
C 

C  INITIAL  PROGRAMMING  DATE:  26  JUL  88 
C 

C - 


INITIALIZATION 

DOUBLE  PRECISION  A. B, R,  H,  PI , All, A12, A22, A16, A26, A66, A44, A45, 
1A55.D11.D12,D22,D16,D26,D66,D44,D45,D55,F11,F12,F22.F16,F26. 
2F66,F44.F45.F55,H11,H12,H22.H16,H26,H66, Jll, J12, J22, J16, J26, 
3J66,TPLY,THETA(100).E1,E2.G12.V12,V21,G13,G23,STIFF(500,500) 
4, MASS( 500, 500) , BETA( 500) , RHO, REVEC( 100) 

DOUBLE  COMPLEX  ALPHA< 500) , EVAL( 500) , EVEC( 500, 500) 

WORKSPACE  ALLOCATION  FOR  IMSL 

COMMON  /  WORKSP  /  RWKSP 
REAL  RWKSP{ 1503026) 

CALL  IWKIN( 1503026) 

OPEN  (UNIT  =  1,  FILE  =  'MAININ.*,  STATUS  =  'OLD') 

OPEN  (UNIT  =  2,  FILE  =  'MAINOUT. STATUS  =  'NEW') 

IS  THIS  A  VIBRATION  PROBLEM  OR  A  BUCKLING  PROBLEM  ? 

NBUCVIB  =  1;  VIBRATION.  NBUCVIB  =  2;  BUCKLING. 

READ(1,5)  NBUCVIB 


READ  SHELL  PANEL  DIMENSIONS  AND  LAMINATE  DATA 
DIMENSIONAL  DATA 
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nnrsnn  n  oh-  o  o  noon 


} 


C  LENGTH  IN  THE  X  DIRECTION  (LONGITUDINAL  AXIS) 

READd,  1)  A 

C  LENGTH  IN  THE  Y  DIRECTION  ( CIRCUMFERENCIAL  AXIS) 

READd,  1}  B 

C  RADIUS  OF  CURVATURE 
READd,  1)  R 
C  LAMINATE  THICKNESS 
READd,  1)  H 

PI  =  3.141592653589793 

C  LENGTH  TO  SPAN  RATIO  AND  THICKNESS  RATIO 
AOVERB  =  A/B 
HOVERR  =  H/R 
AOVERH  =  A/H 
BOVERH  =  B/H 

LAMINATE  DATA 

NUMBER  OF  PLYS  IN  THE  LAMINATE 
READd,  5)  NPLYS 

THICKNESS  OF  EACH  PLY  IN  THE  LAMINATE 
TPLY  =  H  /  NPLYS 

ORIENTATION  ANGLE  OF  EACH  PLY  IN  THE  LAMINATE 
DO  100  I  =  1, NPLYS 
READd,  1)  THETAd) 

00  CONTINUE 

MATERIAL  PROPERTIES  OF  EACH  PLY 
READd,  1)  El 
READd,  1)  E2 
READd,  1)  G12 
READd,  1)  V12 
READd,  3)  RHO 
V21  =  V12  *  E2  /  El 

FOR  THIS  THESIS,  G13  AND  G23  WILL  HAVE  THE  FOLLOWING  VALUES 
G13  =  G12 
G23  =  0.8  ♦  G12 


WRITE  SHELL  PANEL  DIMENSIONS  AND  LAMINATE  DATA 
WRITE(2, 10) 

IF(NBUCVIB  .EQ.  1)  THEN 
WRITE  (2,11) 

ELSE 

WRITE  (2,12) 

END  IF 

WRITE(2, 13) 

WRITE(2, 15) 

WRITE(2,17)  A,B, AOVERB 
WRITE(2,18)  H, AOVERH, BOVERH 
WRITE(2,20)  R, HOVERR 
WRITE(2,22) 
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WRITE(2,23) 

DO  101  I  =  1,  NPLYS 
WRITE{2,24)  THETA(I) 
101  CONTINUE 

WRITE(2,25)  NPLYS, H 
WRITE(2,26)  TPLY 
WRITE(2,28)  E1,E2 
WRITE(2,30)  G12 
WRITE(2,32)  G13.G23 
WRITE(2.34)  V12,V21 
WRITE(2.35)  RHO 
C 

C - 


CALCULATE  THE  BENDING.  EXTENSIONAL,  AND  HIGHER  ORDER 
STIFFNESS  ELEMENTS  FOR  A  SYMMETRIC  LAMINATE. 

CALL  LAMINAT ( NPLYS, TPLY, THETA. El . E2 . G 12 , V12 , 
1V21.G13.G23,PI,H. All,  A12,  A22,  A16.  A26.  A66,  A44,  A45,  A55, 
2D11,D12,D22.D16.D26.D66,D44,D45,D55.F11,F12,F22.F16.F26,F66, 
3F44.F45,F55,H11,H12,H22,H16,H26,H66, Jll, J12, J22, J16, J26. J66) 


WRITE  LAMINATE  STIFFNESS  ELEMENTS 


C 

C 

C 

C 

C 


WRITE{2,36) 
WRITE(2.40) 
WRITE(2,41) 
WRITE(2,  42) 
WRITE(2,43) 
WRITE(2,44) 
WRITE(2, 45) 
WRITE(2,46) 
WRITE(2,47) 
WRITE(2,48) 
WRITE(2,49) 
WRITE(2,50) 
WRITE(2,51) 
WRITE(2, 52) 
WRITE(2,53) 
WRITE(2,54) 
WRITE<2,55) 


A11.A12.A22 
A16,A26,A66 
A44,  A45, A55 

D11,D12,D22 

D16,D26,D66 

D44,D45,D55 


F11,F12,F22 
F16,F26,F66 
F44,F45,F55 
H11,H12,H22 
H16,H26.H66 
Jll, J12. J22 
J16, J26. J66 


READ  THE  NUMBER  OF  TERMS  IN  THE  ADMISSIBLE  FUNCTIONS. 
DETERMINE  THE  DIMENSION  OF  THE  MASS  AND  STIFFNESS  MATRICES. 

READ(1,5)  MMAX 
MSIZE  =  5  «  mMAX  *  MMAX 
MSIZESQ  =  MMAX  *  MMAX 
IF  (NBUCVIB  .EQ.  1)  THEN 
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WHITE(2.57) 

WRITE(2,59)  MMAX.MSIZE.MSIZE 
WRITE(2,60) 

ELSE 

WRITE(2,58) 

WRITE(2,63) 

WRITE(2,64) 

WRITE(2,69)  MMAX.MSIZE.MSIZE 
ENDIF 


USING  THE  BENDING,  EXTENSIONAL,  AND  HIGHER  ORDER  STIFFNESS 
ELEMENTS  AND  THE  SHELL  PANEL  PHYSICAL  CHARACTERISTICS  AS 
INPUTS,  CALCULATE  THE  STIFFNESS  AND  MASS  MATRICES  AND  THEN 
FIND  THE  NATURAL  FREQUENCIES  AND/OR  AXIAL  BUCKLING  LOAD  AND 
THEIR  RESPECTIVE  MC'DE  SHAPES. 

CALL  GALERK(PI,R,H, A,B, All, A12, A22, A16, A26, A66, A44, A45, A55, 
1D11,D12.D22,D16,D26,D66,D44.D45,D55,F11,F12,F22,F16,F26,F66, 
2F44,F45,F55,H11,H12,H22,H16,H26,H66, Jll, J12, J22, J16, J26, J66, 
3NBUCVIB, MMAX, MSIZE, RHO, STIFF, MASS, BETA, ALPHA,  EVAL, EVEC, 
4MSIZESQ,REVEC) 


STOP 


FORMAT  STATEMENTS 

1  FORMAT(F15. 5) 

3  FORMAT(D22. 15) 

4  FORMAT(E12. 5) 

5  FORMAT(I5) 

10  F0RMAT(////,5X, ’ANISOTROPIC  LAMINATED  CIRCULAR  CYLINDRICAL  S 
♦HELL  PANEL’) 

11  F0RMAT(//,5X, ’VIBRATION  PROBLEM') 

12  F0RMAT<//,5X, ’BUCKLING  PROBLEM’) 

13  F0RMAT(//,5X, ’S2  SIMPLY  SUPPORTED  BOUNDARY  CONDITIONS’) 

15  F0RMAT(///,5X, ’SHELL  PANEL  DIMENSIONS  (in.)’) 

17  F0RMAT(/,5X, ’a  =  ’ , IX, F6. 2, 4X, ’b  =  ’ , IX, F6. 2, 4X, ’ a/b  =  ’ , IX, 
♦F6. 2) 

18  F0RMAT</,5X, ’h  =  ’ ,  IX,  F4. 2, 4X, ’ a/h  =  ’ ,  IX, F6 . 2, 4X, ’ b/h  =  ’,1 
♦X.F6.2) 

20  F0RMAT(/,5X, ’R  =  ’ ,  IX,  E12. 5,  6X, ’h/R  =  ’,1X,F10.8) 

22  F0RMAT(//,5X, 'SHELL  PANEL  LAMINATE  DIMENSIONAL  AND  MATERIAL 
♦DATA’ ) 

23  F0RMAT(//,5X, 'SYMMETRIC  LAMINATE  PLY  LAYUP  (DEGREES)’) 

24  FORMAT(/,30X,F7.2) 

25  FORMAT(/, 3X, I3,2X, 'PLYS  IN  THIS’ , 2X, F4. 2, 2X, ’ in.  THICK  LAMIN 
♦ATE’ ) 

26  FORMAT (/,5X, 'EACH  PLY  IS' , IX, E12. 5, 2X, ' ins .  THICK’) 

28  FORMAT(/, 5X, 'ELASTICITY  MODULI I  (psi);  El  =  ’ , E12 . 5, 2X, ’ E2 
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*=  ’,E12.5) 

30  F0RMAT(/,  5X, 'IN  PLANE  SHEAR  MODULUS  (psi):  G12  =  ’.E12.5) 

32  FORMAT(/, 5X, 'TRANSVERSE  SHEAR  MODULII  (psi);  G13  =  ',E12.5, 
*2X, 'G23  =  ’,E12.5) 

34  FORMAT(/,5X, 'POISSONS  RATIOS:  V12  =  ' , IX. F6. 4, 3X, ' V21  =  ',1 
*X,F6.4) 

35  F0RMAT(/, 5X, 'MASS  DENSITY  (LB*SEC^2/IN^4) ;  RHO  =  '.IX.DlB.l 
♦1) 

36  F0RMAT(///,5X, 'EXTENSIONAL  STIFFNESS  ELEMENTS  (Ib/in)') 

40  F0RMAT(/,5X, 'All  =' , F15. 3, 3X. ' A12  =' , F15 . 3, 3X,  ’ A22  =’,F15.3) 

41  F0RMAT(/,5X, ’A16  , F15. 3. 3X. ' A26  =’ , F15 . 3, 3X, ' A66  =',F15.3) 

42  F0RMAT(/.5X. 'A44  =' . F15. 3, 3X, ' A45  =’ . F15. 3.  3X,  ' ASS  ='.F15.3) 

43  F0RMAT(//.5X, 'BENDING  STIFFNESS  ELEMENTS  (lb  ♦  in)’) 

44  FORMAT(/, 5X. 'Dll  =' . F15. 3, 3X. ’D12  =’ . F15. 3, 3X, ’D22  =’,F15.3) 

45  F0RMAT(/,5X, 'D16  =' , F15 . 3. 3X. 'D26  =’ . F15. 3, 3X, 'D66  =’.F15.3) 

46  FORMAT(/, 5X, 'D44  , F15 . 3, 3X, 'D45  =’ , F15 . 3, 3X, ' D55  ='.F15.3) 

47  FORMAT(//. 5 X, 'HIGHER  ORDER  STIFFNESS  ELEMENTS') 

48  F0RMAT(5X, 'Fi j  (in  *  lb“3).Hij  (in  ♦  lb~5).Jij  (in  ♦  lb''7)') 

49  F0RMAT(//.5X, 'Fll  =’ , F15. 3, 3X. ’F12  =’ ,F15. 3, 3X, ’F22=’ .F15. 3) 

50  FORMAT(/, 5X. 'F16  =' , F15. 3. 3X, ’F26  =’ , F15. 3, 3X. ’F66  =’,F15.3) 

51  FORMAT(/,  5X, ’F44  =’ , F15 . 3, 3X, ’F45  =’ ,F15. 3, 3X, 'F55  =’,F15.3) 

52  F0RMAT(//,5X, 'Hll  =’ , F15. 3, 3X. ‘H12  =' , F15. 3, 3X, 'H22=' , F15. 3) 

53  F0RMAT(/,5X. ’H16  =’ . F15 . 3, 3X. 'H26  =' , F15. 3. 3X, 'H66  =',F15.3) 

54  F0RMAT(//.5X, 'Jll  =’ , F15. 3, 3X, ’ J12  =’ , F15 . 3, 3X, ’ J22=' , F15 . 3 ) 

55  F0RMAT(/,5X, 'J16  =' , F15 . 3, 3X, ’ J26  =’ , F15. 3. 3X, ’ J66  =’.F15.3) 

57  F0RMAT(///,5X. 'VIBRATION  EIGENVALUE  ANALYSIS  -  FIRST  10  MODE 
*S  PRINTED’) 

58  F0RMAT(///,5X, 'BUCKLING  EIGENVALUE  ANALYSIS  -  ALL  MODES  PRIN 
*TED’ ) 

59  F0RMAT(//,5X, 'MMAX  =  NMAX  =  ', 12, 5X, ’ STIFFNESS  AND  MASS/INE 

*RTIA  MATRICES  ARE  ( ’ , 13, IX, 'BY' , IX, 13. ' ) ' ) 

60  FORMAT(///, 5X, 'MODE  NUMBER’ , IIX, 'EIGENVALUE' , 14X, 'NATURAL  FR 
♦EQUENCY  (RAD/SEC) ' ) 

63  F0RMAT(5X, 'THE  CRITICAL  BUCKLING  LOAD  IS  THE  EIGENVALUE  WITH 

*'  ) 

64  F0RMAT(5X, 'THE  SMALLEST  ABSOLUTE  VALUE') 

C - 

END 

C - 

SUBROUTINE  LAMINAT(NPLYS, TPLY, THETA, El , E2, G12, V12, 
1V21,G13,G23,PI,H, All, A12, A22,A16, A26, A66, A44,  A45,  A55, 
2D11,D12.D22,D16,D26,D66,D44,D45,D55,F11,F12,F22,F16,F26,F66, 
3F44,F45,F55,H11,H12,H22,H16,H26,H66, Jll, J12, J22, J16. J26, J66) 


THIS  SUBROUTINE  CALCULATES  THE  BENDING,  EXTENSIONAL,  AND 
HIGHER  ORDER  STIFFNESS  ELEMENTS  FOR  THE  LAMINATE. 

THE  LAMINATE  IS  SYMMETRIC  WITH  RESPECT  TO  THE  MIDPLANE  IN 
BOTH  MATERIAL  PROPERTIES  AND  ORIENTATION  ANGLE.  THETA. 
THIS  THESIS  ASSUMES  A  HOMOGENEOUS  LAMINATE  —  MATERIAL 


134 


oo  oooono 


PROPERTIES  ARE  IDENTICAL  FOR  EACH  PLY.  THE  ONLY  THING  THAT 
CAN  CHANGE  IS  ORIENTATION  ANGLE. 

EACH  PLY  ALSO  HAS  THE  SAME  THICKNESS. 


DOUBLE  PRECISION  H, PI, All , A12. A22, A16, A26, A66, A44, A45, 

1A55, Dll. D12, D22, Die, D26. D66, D44, D45, D55,  Fll,  F12,  F22,  F16.  F26, 
2F66,F44.F45,F55,H11,H12,H22.H16,H26,H66. Jll, J12, J22, Jie, J26, 
3J66,  TPLY.THETA(100),E1,E2,G12, V12, V21,G13,G23,Q11,Q12,Q22, 
4Q44 , Q55 .  Q66 , QBARl 1 ,  QBARl 2 , QBARl 6 . QBAR22 .  QBAR26 ,  QBAR44 , QBAR45 
5,QBAR55,QBAR66. ZK, ZKl,  TH( 100) .  ZKO,  ZK3,  ZK5,  ZK7,  ZK9 

REDUCED  STIFFNESS  ELEMENTS  IN  PRINCIPLE  COORDINATES 
Qll  =  El  /  (1.0  -  V12  ♦  V21) 

Q12  =  V12  *  E2  /, (1.0  -  V12  *  V21) 

Q22  =  E2  /  (1.0  -  V12  *  V21) 

Q44  =  G23 
Q55  =  G13 
Q66  =  G12 

C  INITIALIZE  ALL  STIFFNESS  ELEMENTS  TO  ZERO 


All 

0. 

A12 

0. 

A22 

:: 

0. 

A16 

:= 

0. 

A26 

r 

0. 

A66 

= 

0. 

A44 

0. 

A45 

= 

0. 

A55 

n 

0. 

Dll 

0. 

D12 

= 

0. 

D22 

0. 

Die 

0. 

D26 

0. 

D66 

0. 

D44 

= 

0. 

D45 

0. 

D55 

0. 

Fll 

0. 

F12 

0. 

F22 

= 

0. 

F16 

0. 

F26 

0. 

F66 

0. 

F44 

= 

0. 

F45 

0. 

F55 

0. 

Hll 

= 

0. 

H12 

X 

0. 

H22 

s 

0. 

Hie 

r 

0. 
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H26  =  0. 

H66  =  0. 

Jll  =  0. 

J12  =  0. 

J22  =  0. 

J16  =  0. 

J26  =  0. 

J66  =  0. 

C - 

C  IN  ORDER  FROM  THE  FIRST  PLY  AT  Z  =  -  H/2  TO  THE  TOP  PLY  AT 

C  Z  =  +  H/2,  INPUT  THE  PLY  ORIENTATION  ANGLE,  THETA.  THEN  IN 

C  TURN  CALCULATE  THE  QBARS  AND  THE  STIFFNESS  ELEMENTS  FOR  THAT 
C  PLY.  REPEAT  THE  PROCEDURE  FOR  ALL  PLYS,  THEN  ADD  THE  PLY 
C  STIFFNESS  ELEMENTS  TOGETHER  TO  GET  THE  LAMINATE  STIFFNESS 
C  ELEMENTS. 

C  INITIALIZE  Z  TO  THE  BOTTOM  OF  THE  LAMINATE 

C - 

ZKl  =  -  H  /  2.0 

DO  100  I  =  l.NPLYS 

TH(I)  =  THETA(I)  *  PI  /  180.0 

C - 

C  COMPUTE  THE  QBARS  -  TRANSFORMED  REDUCED  STIFFNESS  ELEMENTS 
C  IN  GLOBAL  COORDINATES. 

C - 

QBARll  =  Qll  ♦  DCOS(TH(I) )**4  +  2.0  *  (Q12  +  2.0  ♦  Q66)  * 
1DSIN(TH(I) )**2  *  DC0S(TH(I))**2  +  Q22  *  DSIN( TH( I ) ) **4 
QBAR12  =  (Qll  +  Q22  -  4.0  *  Q66)  ♦  DSIN( TH( I ) ) **2  ♦ 
1DC0S(TH(I))**2  +  Q12  ♦  (DSIN<TH( I ) ) **4  +  DCOS( TH( I ) ) **4 ) 
QBAR16  =  (Qll  -  Q12  -  2.0  ★  Q66)  »  DSIN(TH(I))  *  DCOS(TH(I)) 
1**3  +  (Q12  -  Q22  4  2.0  ♦  Q66)  *  DSIN( TH( I > ) ♦»3  ♦  DCOS(TH(I)) 
QBAR22  =  Qll  ♦  DSIN( TH( I ) ) **4  4  2.0  ♦  (Q12  4  2.0  *  Q66)  ♦ 
1DSIN(TH( I) )**2  *  DC0S(TH(I))**2  4  Q22  ♦  DCOS(TH( I) )**4 
QBAR26  =  (Qll  -  Q12  -  2.0  *  Q66)  ♦  DSIN( TH( I ) ) **3  *  DCOS(TH 
1(1) )4  (Q12  -  Q22  4  2.0  ♦  Q66)  ♦  DSIN(TH(I))  *  DCOS( TH( I ) ) **3 
QBAR44  =  Q44  *  DCOS( TH( I ) ) **2  4  Q55  ♦  DSIN( TH( I ) ) **2 
QBAR45  =  (Q44  -  Q55)  ♦  DCOS(TH(I))  *  DSIN(TH(I)) 

QBAR55  =  Q55  *  DCOS( TH( I ) ) ♦♦2  4  Q44  ♦  DSIN( TH( I ) ) **2 
QBAR66  =  (Qll  4  Q22  -  2.0  ♦  Q12  -  2.0  ♦  Q66)  ♦DSIN( TH( I) ) **2 
1*  DCOS(TH(I) )**2  4  Q66  *  (DSIN( TH( I ) ) **4  4  DCOS( TH( I ) ) **4) 


C  TOP  AND  BOTTOM  LOCATION  OF  PLY(I) 
ZK  =  ZKl  4  TPLY 

C  EXTENSIONAL  STIFFNESS  ELEMENTS 
ZKO  =  ZK  -  ZKl 
All  =  QBARll  *  ZKO  4  All 
A12  =  QBAR12  *  ZKO  4  A12 
A22  =  QBAR22  ♦  ZKO  4  A22 
A16  =  QBAR16  *  ZKO  4  A16 
A26  =  QBAR26  ♦  ZKO  4  A26 
A66  =  QBAR66  ♦  ZKO  4  A66 
A44  =  QBAR44  ♦  ZKO  4  A44 
A45  =  QBAR45  ♦  ZKO  4  A45 
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A55  =  QBAR55  »  ZKO  +  A55 
C  BENDING  STIFFNESS  ELEMENTS 


ZK3 

;r 

(ZK**3 

- 

ZK1**3)  / 

3.  0 

Dll 

— 

QBARll 

* 

ZK3 

+ 

Dll 

D12 

— 

QBAR12 

* 

ZK3 

+ 

D12 

D22 

QBAR22 

* 

ZK3 

4- 

D22 

D16 

QBAR16 

* 

ZK3 

+ 

D16 

D26 

= 

QBAR26 

♦ 

ZK3 

+ 

D26 

D66 

QBAR66 

* 

ZK3 

+ 

D66 

D44 

= 

QBAR44 

* 

2K3 

+ 

D44 

D45 

QBAR45 

* 

ZK3 

+ 

D45 

D55 

= 

QBAR55 

* 

ZK3 

+ 

D55 

HIGHER  ORDER 

STIFFNESS  ELEMENTS 

ZK5 

= 

(ZK**5 

- 

ZK1**5)  / 

5.0 

Fll 

QBARll 

* 

ZK5 

+ 

Fll 

F12 

QBAR12 

* 

ZK5 

+ 

F12 

F22 

QBAR22 

* 

ZK5 

+ 

F22 

F16 

= 

QBAR16 

* 

ZK5 

+ 

F16 

F26 

= 

QBAR26 

♦ 

ZK5 

+ 

F26 

F66 

QBAR66 

* 

ZK5 

+ 

F66 

F44 

QBAR44 

ZK5 

+ 

F44 

F45 

QBAR45 

* 

ZK5 

+ 

F45 

F55 

QBAR55 

* 

ZK5 

+ 

F55 

ZK7 

(ZK**7 

- 

ZK1**7)  / 

7.0 

Hll 

=: 

QBARll 

* 

ZK7 

+ 

Hll 

H12 

QBAR12 

*. 

ZK7 

+ 

H12 

H22 

QBAR22 

* 

ZK7 

+ 

H22 

H16 

= 

QBAR16 

* 

ZK7 

+ 

H16 

H26 

= 

QBAR26 

* 

ZK7 

+ 

H26 

H66 

r 

QBAR66 

♦ 

ZK7 

+ 

H66 

ZK9 

(ZK**9 

- 

ZK1**9)  / 

9.0 

Jll 

r 

QBARll 

* 

ZK9 

+ 

Jll 

J12 

QBAR12 

* 

ZK9 

+ 

J12 

J22 

zz 

QBAR22 

* 

ZK9 

+ 

J22 

J16 

r 

QBAR16 

* 

ZK9 

+ 

J16 

J26 

r 

QBAR26 

♦ 

ZK9 

+ 

J26 

J66 

= 

QBAR66 

♦ 

ZK9 

+ 

J66 

C  GO  TO  NEXT  LAYER 
100 

RETURN 

END 

C - 

SUBROUTINE  GALERK(PI,  R,  H, A. B, All. A12, A22, A16, A26, A66, A44,  A45 

1.  A55,D11,D12,D22,D16,D26,D66,D44,D45,D55,F11,F12,F22,F16,F26 

2. F66,F44,F45,F55,H11,H12,H22,H16.H26,H66, Jll, J12, J22, J16, J26 

3.  J66,  NBUCVIB,  MMAX, MSIZE,  RHO, STIFF, MASS, BETA, ALPHA. EVAL, EVEC, 
4MSIZESQ,REVEC) 

C - 

C  THIS  SUBROUTINE  GENERATES  THE  GALERKIN  EQUATIONS  AND  FORMS 
C  THE  MASS  AND  STIFFNESS  MATRICES.  THEN  IT  CALLS  DGVCRG,  AN 
C  IMSL  SUBROUTINE  WHICH  SOLVES  THE  EIGENVALUE  PROBLEM; 


% 


M 


M 


M 


M 
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C  [STIFF] {X}  =  (0MEGA^2  OR  NIBAR) [MASS] {X} . 

C - 

DOUBLE  PRECISION  PI, R, H, A. B, All, A12, A22, A16,  A26,  A66,  A44, 
1A45, A55,D11,D12,D22,D16,D26,D66,D44,D45,D55,F11,F12,F22,F16, 
2F26,F66,F44,F45,F55,H11,H12,H22,H16,H26,H66,  Jll,  J12,  J22,  J16, 
3J26, J66, STIFF(MSIZE, MSIZE) , MASS(MSIZE, MSIZE) , AUO, BUO, CUO, EUO 
4, GUO, AVO, BVO, CVO, EVO, GVO, AW, BW, CW, EW, GW, AJX, BJX, CJX, EJX,  GJX, 
5AJY, BJY, CJY, EJY, GJY, AUOMASS, BUOMASS, CUOMASS, EUOMASS, GUOMASS, 
6AVOMASS, BVOMASS, CVOMASS, EVOMASS, GVOMASS,  AWMASS,  BWMASS,  CWMASS 
7, EWMASS, GWMASS, AJXMASS, BJXMASS, CJXMASS, EJXMASS, GJXMASS, AJYMA 
8SS, BJYMASS, CJYMASS,  EJYMASS, GJYMASS,  RHO,  I2BARPR,  I3BARPR,  I5BAR 
9, 17, II, I4BAR 

INTEGER  P,Q 

C  THESE  VARIABLES  NEEDED  FOR  THE  IMSL  EIGENVALUE  SOLVER. 

DOUBLE  PRECISION  BETA(MSIZE) , REVAL. OMEGA. AGEVAL,  AGEVEC, 
IREVEC(MSIZESQ) 

DOUBLE  COMPLEX  ALPHA(MSIZE) , EVAL(MSIZE) , EVEC(MSIZE, MSIZE) 


NUMBER  OF  TERMS  IN  THE  ADMISSIBLE  FUNCTIONS 
NMAX  =  MMAX 
C  GENERATE  GALERKIN  EQUATIONS 
I  =  1 
J  =  1 

DO  10  P  =  l.MMAX 
DO  10  Q  =  l.NMAX 
DO  20  M  =  l.MMAX 
DO  20  N  =  l.NMAX 

C - 

C  COMPUTE  STIFFNESS  MATRIX  ELEMENTS 

C - 

IF  (M  .EQ.  P  .AND.  N  .EQ.  Q)  THEN 
C 

AUO  = 

1 <  3»PI**2*A*D66*H**2-4*PI*»2*A*F66 ) *Q**2/( B*H**2*R) /8 . 0 
BUO  = 

1  ( ( 3*PI**2*D66+6*PI**2*D12 ) ♦H**2-4*PI**2*F66-8*PIX'*2*F12  >  »P*Q 
1  /(H**2*R)/24.0 

CUO  = 

l-( (8*PI**3*F66+4*PI**3*F12)*P*Q**2-3*PI*A12*B**2*H**2*P)/(B* 
1H**2*R)/12. 0 
EUO  = 

l-( (4*PI**2*A**2*A66*Q*»2+4*PI**2*A11*B**2*P**2)*R*»2+PI**2*A 
1**2*D66*Q**2 ) /<  A*B*R**2 ) /16 .  0 
GUO  = 

1- ( ( 4*PI**2*A66+4*PI»*2*A12 ) ♦P*Q*R*»2-PI**2*D66*P*Q) /R**2/16 . 
AVO  = 

l(3*PI**2*D66*H*»2-4*PI**2*F66)*P*Q/(H**2*R)/24.  0 
BVO  = 

1(  (6*PI**2*A**2*D22*H**2-8*PI**2*A**2*F22)*Q’t:*2+(4*PI**2*B**2 
1*F66-3*PI**2*B**2*D66*H**2 ) *P**2 ) /( A»B*H**2*R) /24 . 0 
CVO  = 

1-(4*PI**3*A*F22*Q**3-3*PI*A*A22*B**2*H**2*Q)/(B*#2*H**2*R)/1 


EVO  = 

l-{ (4»PI»*2*A66+4*PI*»2*A12)*P»Q*R**2-PI*»2*D66*P*Q)/R**2/16. 
GVO  = 

l-{ (4*PI**2»A**2*A22*Q**2+4*PI**2*A66*B**2*P**2)*R**2+PI**2*B 
1**2*D66*P**2 ) /( A*B*R**2 ) /16 . 0 
AW  = 

l-{ {(32*PI**3*A**2*H66+16*PI**3*A*«2*H12+(-24*PI**3*A*^2*F66- 
112*PI**3*A**2*F12)*H**2)*P*Q*»2+( 16»PI**3*B**2*H11-12*PI**3* 
1B**2*F1 1*H**2 ) ♦P**3+ ( 9*PI*A**2»A55*B**2*H**4-72*PI*A**2*B**2 
1*D515*H**2+144*PI*A**2*B**2*F55)*P)*R**2+( 16*PI**3*A**2*J66- 
1 12*PI»*3*A**2*H**2*H66 ) ♦P»Q**2 ) /( A**2*B*H**4*R**2 ) /36 . 0 
BW  = 

l-( { ( 16*PI**3»A**2*H22-12*PI**3*A**2»F22*H**2)*Q**3+{ (32»PI** 
13*B**2»H66+16*PI**3*B**2*H12+(-24*PI**3*B**2*F66-12*PI**3*B» 
1*2*F12 ) *H**2 ) ♦P**2+9*PI*A»*2*A44*B**2*H**4-72»PI*A**2*B**2*D 
144*H**2+144*PI*A**2*B**2*F44>*Q)*R**2+( 16*PI**3*A**2*J22-12» 
1PI»»3*A**2*H»*2*H22)*Q**3+<9*PI»A**2*B**2*D22*H**4-12*PI*A** 
12*B**2*F22*H*»2 ) *Q) /( A*B»*2*H**4*R**2 ) /36 . 0 
CW  = 

l-{ ( 16*PI**4*A**4*H22*Q**4+( (64*PI**4*A**2*B**2*H66+32*PI**4* 
1A**2*B*»2*H12)*P**2+9*PI**2*A**4*A44*B**2*H**4-72*PI**2*A**4 
1*B>*'*2*D44*H**2  +  144*PI**2*A**4*B**2*F44)*Q**2+16*PI**4*B**4*H 
111*p**4+(9*pi**2*A**2*A55*B**4*H**4-72*PI**2»A**2*B**4*D55*H 
1»*2+144*PI**2*A**2*B**4*F55)*P**2)*R»*2+16*PI**4*A**4*J22*Q* 
l*4+{ 16*PI**4*A**2*B**2*J66*P**2-24*PI**2*A^*4*B**2*F22*H»»2 ) 
1*Q**2+9*A**4*A22*B**4*H**4)/(A**3*B**3*H**4*R**2)/36. 0 
EW  = 

l-(  (8*PI**3*F66+4*PI*»3*F12)*P*Q*!»2-3*PI*A12*B**2*H**2*P)/(B* 
1H**2*R)/12.0 
GW  = 

1-(4*PI**3*A*F22*Q**3-3*PI*A»A22*B**2*H**2*Q)/(B**2*H**2*R)/1 
12.0 
AJX  = 

l-( ( ( 16*PI**2*A**2*H66+9*PI**2*A**2*D66*H**4-24*PI**2*A**2*F6 
16*H**2)*Q**2+{ 16*PI**2*B**2»H11+9*PI**2*B**2*D11*H**4-24*PI* 
1*2*B**2*F1 1*H**2 ) *P**2+9*A**2*A55*B**2*H**4-72*A**2»B**2*D55 
1*H**2+144*A**2*B**2*F55 ) *R**2+( 16*PI**2*A**2*J66-24*PI**2*A* 
1*2*H**2*H66+9*PI**2*A**2*F66»H**4) *Q**2 ) /( A*B*H**4*R**2 ) /36 . 
BJX  = 

l-( 16»PI**2*H66+16*PI**2*H12+(9*PI**2*D66+9*PI**2*D12)*H**4+{ 
1  -24=*'PI**2*F66-24*PI**2*F12)*H**2)*P*Q/H**4/36. 0 

CJX  = 

l-(  ( (32*PI**3*A**2*H66  +  16*PI=<c*3*A**2*H12  +  (-24*PI**3*A**2*F66- 
112*PI**3*A**2*F12)*H**2)*P*Q**2+( 16*PI**3*B**2*H11-12*PI**3* 
1B**2*F11*H**2)*P**3+(9*PI*A**2*A55*B**2*H**4-72*PI*A*»2*B**2 
1*D55*H**2+144*PI*A%*2*B**2*F55)*P)*R»*2+( 16*PI**3*A»*2*J66-1 
12*PI*>*:3*A»*2*H**2*H66 )  *P»Q**2 ) /(  A**2*B*H**4*R**2 )  /36 . 0 
EJX  = 

1 ( 3*PI**2*A*D66*H**2-4*PI»*2*A*F66 ) ♦Q»*2/{ B*H**2*R) /8 . 0 
GJX  = 

l(3*PI»*2*D66*H**2-4*PI»*2*F66)*P*Q/(H**2*R)/24.  0 


AJY  = 

l-(16*PI**2»H66+16*PI**2*H12+(9»PI**2*D66+9*PI**2*D12)*H**4+( 
1  -24*PI**2*F66-24*PI»*2*F12)*H**2)*P*Q/H**4/36. 0 

BJY  = 

l-< ( ( 16*PI**2*A**2*H22+9*PI**2*A**2*D22*H**4-24*PI**2*A*»2*F2 
12*H**2)*Q**2+{ 16*PI**2*B**2*H66+9*PI**2*B**2*D66*H**4-24*PI* 
1*2*B**2*F66*H**2 ) *P**2+9*A**2*A44*B**2*H**4-72*A**2*B**2*D44 
l*H**2+144*A**2*B**2*F44)*R**2+( 16*PI**2*A**2*J22-24*PI**2*A^ 
1*2*H*»2*H22+9*PI**2*A**2*F22*H**4)  >t^Q**2 )  /  ( A*B*H**4*R**2 )  /36 . 
CJY  = 

l-(  ( (16*PI**3*A**2*H22-12*PI**3*A**2*F22*H**2)s*tQ**3+(  (32*PI»* 
13*B**2*H66+16*PI**3»B**2*H12+(-24*PI*»3*B**2*F66-12*PI**3*B* 
1*2*F12 ) *H**2 ) ♦P**2+9*PI*A**2*A44*B**2*H**4-72*PI*A**2*B**2*D 
144*H**2+144*PI*A**2*B**2*F44)*Q)*R**2+( 16*PI**3*A**2*J22-12* 
1PI**3*A*»2*H**2*H22)*Q**3+(9*PI*A**2*B**2*D22*H**4-12*PI*A** 
12*B**2*F22*H**2  )  *Q)  /( A*B**2*H**4)*:R**2 )  /36 . 0 
EJY  = 

1  ( <  3*PI**2*D66+6*PI**2*D12 ) ♦H**2-4*PI**2»F66-8*PI*»2*F12 )  ♦Pi^Q 
1  /(H**2*R)/24. 0 

GJY  = 

1 ( ( 6*PI**2*A**2*D22*H**2-8*PI**2*A**2*F22 ) ♦Q**2+ ( 4*PI**2»B**2 
l*F66-3*PI*»2*B**2*D66*H»*2)*P**2)/( A*B*H**2*R) /24.  0 

ELSEIF  (MOD(M  +  P,2)  .NE.  0  .AND.  MOD(N  +  Q,2)  .NE.  0)  THEN 

AUO  = 

l-( < 12*D16*H**2-16*F16)*N*P**2+(6*D16»H**2-8*F16)*M**2*N)*Q/( 
1  ( (  3*H**2*P**2-3>*:H**23#^M**2  )  *Q>t*2-3*H**2*N**2*P**2+3*H**2*M**2 
1*N*»2)*R) 

BUG  = 

l-<6*A»D26»H»*2-8*A*F26)*M*N*»2*Q/( { (B*H**2»P**2-B*H**2*M**2) 
1*Q»*2-B*H»*2*N**2*P**2+B*H**2*M*»2*N**2 ) »R) 

CUO  = 

1 ( 16*PI**2*B**2*F16*M*N*P**2+24*PI**2*A**2*F26*M*N**3+(8*PI** 
12*B*»2*F16*M**3-12*A**2*A26*B**2*H**2*M)*N)*Q/( ( (3*PI*A*B**2 
1*H**2*P»*2-3*PI*A»B**2*H**2*M**2 ) *Q**2-3*PI*A*B**2*H»*2»N**2 
1*P**2+3*pi*a*B**2*H**2*M**2*N**2 )»R) 

EUO  = 

1 ( 4*A16*N*P**2+4*A16*M**2*N) ♦Q/C ( P**2-M**2 ) *Q»»2-N**2*P**2+M* 
1*2*N**2) 

GUO  = 

1 ( 4*A16*B**2*M*P**2+4*A**2*A26»M*N**2 ) *Q/( ( A*B*P**2-A*B*M**2 ) 
1*Q**2-A*B*N**2*P*»2+A*B*M**2*N**2) 

AVO  = 

l-(  (12*A**2*D26>ttH**2-16*A**2*F26)*N*P*Q**2+(8*B**2*F16-e*B»*2 
l!ttD16*H**2 ) ♦m**2*N*P)  /( ( ( 3*A*B*H**2*P**2-3*A*B*H**2*M**2 )  *Q** 
12-3*A*B*H**2*N»*2*P**2+3*A*B*H**2*M**2*N**2 ) ♦R) 

BVO  = 

1- { 6*D26*H**2-8*F26 ) ♦M*N**2*P/( ( ( 3*H**2*P**2-3*H**2*M*»2 ) *Q** 
12-3*H*»2*N**2*P**2+3*H**2*M**2*N**2 ) ♦R) 

CVO  = 

1(  16*PI>t:*2*A**2*F26*M*N*P*Q**2+(8*PI*»2»A**2*F26*M*N**3+(-8*P 


11) tc*2*B**2*F16*M**3-12*A’*:*2*A26*B**2*H*>*=2*M)*N)*P)/(  ( (3*PI*A* 
1i*:2*B*H**2*P**2-3*PI*A**2*B*H**2*M**2)*Q**2-3*PI*A**2*B*H**2* 
1N»*2*P**2+3*PI*A»*2*B*H»*2*M**2*N**2 ) ♦R) 

EVO  = 

l(4*A**2*A26*N*P*Q**2+4*A16*B**2*M**2*N*P)/( ( A*B*P**2-A*B*M** 

12 )  *Q**2-A*B*N**2*P**2+A*B*M*»2*N**2 ) 

GVO  = 

1 ( 4*A26*M*P*Q**2+4*A26*M*N**2*P) /( {P**2-M**2 ) ♦Q**2-N**2*P**2+ 
1M**2»N**2) 

AW  = 

1(  ( {64*PI>k*2*A**2*H26-48*PI**2*A**2*F26*H**2)*N**3+C  { 192*PI** 
12*B**2*H16-144*PI**2*B**2*F16*H**2)*M**2+36*A**2*A45*B**2»H* 
l*4-288*A»*2*B**2*D45*H**2+576*A**2*B**2*F45)*N)*P*Q*R**2+( (6 
14*PI**2*A**2*J26-48*PI**2*A**2*H**2*H26 ) ♦N**3+( 36*A**2*B**2* 
1D26*H**4-48*A**2*B**2*F26*H**2 )  *N )  s^P^Q)  /(  {  ( 9*PI*A*B»*2*H>»:s<f4* 
1P**2-9*PI*A*B**2*H**4*M*»2)*Q**2-9*PI*A*B**2*H»*4*N**2*P**2+ 
19»PI*A*B)tt*2*H**4*M**2*N**2 )  *R*»2 ) 

BW  = 

1( ( ( 192*PI**2*A**2*H26-144*PI**2*A**2*F26*H**2)»M*N**2+(64*PI 
1**2*B**2*H16-48*PI**2*B**2*F16*H**2)*M**3+(36*A**2*A45*B**2* 
1H**4-288*A**2*B**2*D45*H»*2+576*A**2*B**2*F45)*M)*P*Q»R**2+( 
164*PI**2*A**2*J26-48*PI**2*A**2*H**2*H26)*M*N**2*P*Q)/( ( (9*p 
1I*A**2*B*H**4*P»*2-9*PI*A*»2*B*H**4*M**2)*Q*»2-9*PI*A**2*B»H 
l*#4)tcN**2*P**2+9*PI*A**2*B*H**4*M**2»N**2 )  *R**2 ) 

CW  = 

1( (256*PI**2*A**2*H26»M*N**3+(256*PI**2*B**2*H16*M**3+(72*A** 
12*A45*B*»2*H**4-576*A**2*B**2*D45*H*»2+1 152*A**2*B**2*F45 ) *M 
l)*N)*P*Q*R**2+(  128*PI**2*A**2’«M26*M*N**3-96*A**2*B**2*F26*H* 
l*2*M»N)*P*Q)/( ( ( 9*A**2*B**2*H**4*P**2-9*A*»2*B**2*H**4*M**2 ) 
1*Q**2-9*A**2*B**2*H**4*N**2*P**2+9*A**2*B**2*H**4*M**2*N»*2 ) 
1*R**2) 

EW  = 

1 ( 8*PI**2*A**2*F26*N**3+( 8*PI**2*B**2*F16*M**2-4*A**2*A26*B*» 
12*H**2)*N)*P*Q/{ ( <PI*A*B**2*H**2*P**2-PI*A*B**2*H»*2*M**2)*Q 
1**2-PI’*:A*B**2*H**2*N**2*P**2+PI*A*B**2*H**2*M**2*N**2 )  ♦R) 

GW  = 

1 ( 24*PI**2*A»*2*F26*M*N**2-8»PI**2*B**2»F16»M**3-12*A**2*A26* 
1B**2*H**2*M) ♦P*Q/( < ( 3#PI*A**2*B*H**2*P**2-3»PI*A**2*B*H**2*M 
l**2)*Q)tt*2-3*PI*A**2*B*H**2*N**2*P»*2+3*PI*A**2*B*H**2*M**2*N 
1**2)*R> 

AJX  = 

1( (128»H16+36*D16*H**4-144»F16*H**2)*N*P**2+(36*D16*H**4-48*F 
1 16*H**2 ) *M**2*N ) *Q/ ( ( 9*H**4*P**2-9*H»*4*M**2 ) ♦Q**2-9*H**4*N* 

BJX  = 

1(  ( <  128*Pl!*f*2»B**2*H16+36*PI**2*B**2*D16*H**4-144*PI»*2*B**2* 
lF16*H**2)*M*P**2+(64*PI**2»A**2*H26+36*PI**2*A**2*D26*H*»4-9 
16*PI*#2*A**2*F26*H**2)*M*N**2+(48»PI**2»B**2*F16*H*»2-64*PI* 
1*2*B**2*H16)*M**3+(36*A**2*A45*B**2*H**4-288*A**2*B»*2*D45*H 
1**2+576*A**2*B**2*F45 ) ^M) ♦Q*R**2+<  64*PI**2*A**2*J26-96*PI**2 
1*A**2*H**2*H26+36*PI**2*A**2#F26*H**4)*M*N**2»Q)/(  ( (9’*'PI**2* 
1A*B*H**4*P**2-9*PI**2*A*B*H**4*M**2 ) *Q*»2-9»PI**2*A*B*H**4*N 
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1**2*P**2+9*PI**2*A*B*H**4*M**2*N*»2)*R**2) 

CJX  = 

1( ( (256*PI»*2*B**2*H16-96*PI**2*B**2*F16*H**2)»M*N*P**2+(64*P 
1I**2*A**2*H26-48*PI**2*A**2*F26*H**2 ) ♦M*N**3+( ( -64*PI**2»B** 
12*H16-48*PI**2*B**2*F16*H**2)*M**3+(36*A**2*A45»B**2*H**4-28 
18*A**2*B**2*D45*H**2+576*A»*2»B**2*F45 ) ♦M) *N ) ♦Q*R**2+( ( 64*PI 
1**2»A**2*J26-48*PI**2*A**2»H**2*H26)*M*N**3+(36*A**2*B**2*D2 
16*H**4-48*A**2*B**2*F26*H*»2 ) *M*N ) ♦Q) /{ ( { 9*PI»A*B»*2*H**4*P* 
l*2-9*Pl5t'A*B**2»H**4*M**2 )  ♦Q**2-9*PI*A*B**2*H**4*N**2*P**2+9* 
1PI*A*B*»2*H**4*M**2*N**2 )  ♦R*)»f2 ) 

EJX  = 

l-( (6*D16*H**2-16*F16)*N*P**2+(12*D16*H*»2-8*F16)*M**2*N)*Q/( 
1 ( ( 3*H**2*P**2-3*H**2*M**2 ) ♦Q**2-3*H**2*N**2*P**2+3*H**2*M**2 
l)*:N)t:*2)*R) 

GJX  = 

1( (6*B**2*D16*H**2-16*B**2*F16)*M*P**2+(16*A**2*F26-12*A**2*D 
126*H**2 ) *M*N**2+8*B**2*F16*M**3 ) ♦Q/( ( ( 3*A*B*H**2*P**2-3*A*B* 
1H**2*M**2 ) ♦Q**2-3*A»B*H**2*N**2*P**2+3*A*B*H**2*M**2*N**2 ) *R 
1) 

AJY  = 

1 ( ( ( 128*PI**2*A**2*H26+36*PI**2*A**2*D26*H*»4-144*PI**2*A**2* 
lF26*H**2)*N*P*Q**2+( ( 48*PI**2*A**2*F26*H**2-64*PI**2»A**2*H2 
16 )*N»*3+( (64»PI**2*B**2*H16+36*PI**2*B**2*D16*H**4-96*PI**2* 
1B**2*F16*H**2 ) *M**2+36*A**2*A45*B**2*H**4-288*A**2*B**2*D45* 
1H**2+576*A**2*B**2*F45 ) ♦N ) ♦P) *R**2+( 128»PI**2*A**2*J26-144*P 
1I**2»A**2*H**2*H26+36*PI**2*A**2*F26*H**4)*N*P*Q**2+(48*PI** 
12*A**2*H**2*H26-64*PI**2»A**2*J26)*N**3*P)/( ( ( 9*PI**2»A*B*H* 
1*4*P*»2-9*PI**2*A*B*H**4*M**2)*Q**2-9*PI**2*A*B*H**4*N**2*P* 
l*2+9*PI>t'*2*A*B*H»*4*M**2*N**2)*R**2) 

BJY  = 

1 ( < 128*H26+36»D26*H**4-144*F26*H**2 ) »M»P»Q**2+ ( 36*D26*H»*4-48 
1*F26*H**2 ) *M*N**2*P) /( <  9*H**4*P**2-9*H**4*M**2 ) *Q**2-9*H**4* 
1N**2*P**2+9*H**4*M**2*N**2 ) 

CJY  = 

1( < (256*PI**2*A**2*H26-96*PI**2*A»*2*F26*H**2)*M*N»P*Q**2+( (- 
164*PI**2*A**2*H26-48*PI**2*A**2*F26*H**2)*M*N**3+( (64*PI**2* 
1B**2*H16-48*PI**2*B**2*F16*H**2)*M**3+(36*A**2*A45*B**2*H**4 
1-288*A**2*B**2*D45*H**2+576*A**2*B**2*F45)*M)*M)*P)*R**2+(12 
18*PI**2*A**2*J26-48*PI**2*A**2»H**2*H26)*M*N*P*Q**2-64*PI**2 
1*A**2*J26*M*N**3*P) /( <  <  9*PI*A**2*B*H»*4*P**2-9*PI*A**2*B*H** 
14*M**2 ) ♦Q**2-9*PI*A**2»B*H**4*N**2*P**2+9*PI*A**2*B*H**4*M** 
12*N**2 ) ♦R**2 ) 

EJY  = 

l-( ( 6*A*D26*H**2-16*A*F26 ) ♦N*P»Q**2+8*A*F26*N**3*P) /( ( (B»H**2 
1*P**2-B*H**2*M**2 ) *Q**2-B*H**2*N»*2*P**2+B*H**2*M**2*N**2 ) ♦R 
1) 

GJY  = 

l-( (6*D26*H**2-16*F26)*M*P»Q**2+8*F26*M*N**2*P)/( { (3*H**2*P** 
12-3*H**2*M**2 ) ♦Q**2-3*H**2*N**2*P**2+3*H**2*M**2*N**2 ) ♦R) 


STORE  THESE  TERMS  IN  THE  STIFFNESS  MATRIX 

STIFFd.J)  =  AUO 

STIFFd.J  +  MMAX  ♦  NMAX)  =  BUO 

STIFFd,J  +  2  *  MMAX  *  NMAX)  =  CUO 

STIFFd,J  +  3  *  MMAX  *  NMAX)  =  EUO 

STIFFd.J  +  4  ★  MMAX  *  NMAX)  =  GUO 

STIFFd  +  MMAX  ♦  NMAX.J)  =  AVO 

STIFFd  +  MMAX  *  NMAX.J  +  MMAX  *  NMAX)  =  BVO 

STIFFd  +  MMAX  *  NMAX.J  +  2  *  MMAX  *  NMAX)  =  CVO 

STIFFd  +  MMAX  *  NMAX.J  +  3  ♦  MMAX  ♦  NMAX)  =  EVO 

STIFFd  +  MMAX  »  NMAX.J  +  4  ♦  MMAX  ♦  NMAX)  =  GVO 

STIFFd  +  2  *  MMAX  *  NMAX.J)  =  AW 

STIFFd  +  2  ♦  MMAX  ♦  NMAX.J  +  MMAX  ♦  NMAX)  =  BW 

STIFFd  +  2  *  MMAX  *  NMAX.J  +  2  ♦  MMAX  ♦  NMAX)  =  CW 

STIFFd  +  2  *  MMAX  *  NMAX.J  +  3  *  MMAX  ♦  NMAX)  =  EW 

STIFFd  +  2  ♦  MMAX  ♦  NMAX.J  +  4  *  MMAX  *  NMAX)  =  GW 

STIFFd  +  3  ♦  MMAX  ♦  NMAX.J)  =  AJX 

STIFFd  +  3  *  MMAX  *  NMAX.J  +  MMAX  ♦  NMAX)  =  BJX 

STIFFd  +  3  ♦  MMAX  ♦  NMAX.J  +  2  ♦  MMAX  *  NMAX)  =  CJX 

STIFFd  +  3  *  MMAX  ♦  NMAX.J  +  3  ♦  MMAX  ♦  NMAX)  =  EJX 

STIFFd  +  3  ♦  MMAX  ♦  NMAX.J  +  4  *  MMAX  ♦  NMAX)  =  GJX 

STIFFd  +  4  *  MMAX  ♦  NMAX.J)  =  AJY 

STIFFd  +  4  ♦  MMAX  ♦  NMAX.J  +  MMAX  *  NMAX)  =  BJY 

STIFFd  +  4  *  MMAX  ♦  NMAX.J  +  2  ♦  MMAX  ♦  NMAX)  =  CJY 


c 

c- 

c 


STIFFd  +  4  *  MMAX  ♦  NMAX.J  +  3  ♦  MMAX  ♦  NMAX)  =  EJY 

STIFFd  +  4  *  MMAX  ♦  NMAX.J  +  4  *  MMAX  *  NMAX)  =  GJY 

COMPUTE  MASS  MATRIX  ELEMENTS 

FIRST  CALCULATE  THE  MASS  MOMENTS  OF  INERTIA. 

I2BARPR  =  RHO  ♦  H**3  /  (15.0  ♦  R) 

I3BARPR  =  RHO  ♦  H**3  /  (60.0  »  R) 

I5BAR  =  RHO  *  H**3  *  4.0  /  315.0 

17  =  RHO  *  H**7  /  448.0 
II  =  RHO  ♦  H 

I4BAR  =  RHO  ♦  H**3  ♦  17.0  /  315.0 

AUOMASS  =0.0 

BUOMASS  =0.0 

CUOMASS  =0.0 

EUOMASS  =0.0 

GUOMASS  =0.0 

AVOMASS  =0.0 

EVOMASS  =0.0 

GVOMASS  =  0.0 

EWMASS  =0.0 

GWMASS  =0.0 


BJXMASS 

EJXMASS 

GJXMASS 

AJYMASS 

EJYMASS 

GJYMASS 


0.  0 
0.0 
0.0 
0.0 
0.0 
0.0 


IF(M  .EQ.  P  .AND.  N  .EQ.  Q)  THEN 
C 

IF(NBUCVIB  .EQ.  1)  THEN 

C  VIBRATIONS  PROBLEM  -  WE  ARE  LOOKING  FOR  THE  NATURAL 
C  FREQUENCIES 

BVOMASS  =  -1.0  *  ( 
lA*B*I2BARPR/4.0  ) 

CVOMASS  =  -1.0  *  ( 
l-PI*A*I3BARPR*Q/4.0  ) 

AWMASS  =  -1.0  *  ( 

l-PI*B*I5BAR*P/4. 0  ) 

BWMASS  =  -1.0  ♦  ( 

l-PI*A*I5BAR*Q/4. 0  ) 

CWMASS  =  -1.0  ♦  ( 

1  ( 16*PI**2*A**2*I7*Q**2+16*PI**2*B>»'*2*I7*P**2+9*A**2*B**2*H** 
14*Il)/<A^BW*4)/36.0  ) 

AJXMASS  =  -1.0  ♦  ( 
lA*B*I4BAR/4. 0  ) 

CJXMASS  =  -1.0  ♦  < 
l-PI*B*I5BAR»P/4. 0  ) 

BJYMASS  =  -1.0  ♦  < 
lA*B*I4BAR/4. 0  ) 

CJYMASS  =  -1.0  *  ( 
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1 -P I » A* I 5B AR*Q/4 . 0  ) 

ELSE 

C  BUCKLING  PROBLEM  -  WE  ARE  LOOKING  FOR  THE  CRITICAL  BUCKLING 
C  LOADS 

BVOMASS  =0.0 
CVOMASS  =0.0 
AWMASS  =0.0 
BWMASS  =0.0 
CWMASS  =  -1.0  *  ( 
l-PI**2*B*P**2/A/4. 0  ) 

AJXMASS  =0.0 
CJXMASS  =0.0 
BJYMASS  =0.0 
CJYMASS  =0.0 
END  IF 
C 

ELSE 

C 

BVOMASS  =0.0 
CVOMASS  =0.0 
AWMASS  =0.0 
BWMASS  =0.0 
CWMASS  =0.0 
AJXMASS  =0.0 
CJXMASS  =0.0 
BJYMASS  =0.0 
CJYMASS  =0.0 
C 

ENDIF 


STORE  THESE  TERMS  IN  THE  MASS  MATRIX 


MASS (I, J)  =  AUOMASS 

MASSd.J  +  MMAX  *  NMAX)  =  BUOMASS 

MASS(I,J  +  2  *  MMAX  *  NMAX)  =  CUOMASS 

MASS(I,J  +  3  *  MMAX  *  NMAX)  =  EUOMASS 

MASS(I,J  +  4  *  MMAX  *  NMAX)  =  GUOMASS 

MASSd  +  MMAX  ♦  NMAX.J)  =  AVOMASS 

MASSd  +  MMAX  ♦  NMAX,J  +  MMAX  *  NMAX)  =  BVOMASS 

MASSd  +  MMAX  *  NMAX.J  +  2  *  MMAX  *  NMAX)  =  CVOMASS 

MASSd  +  MMAX  *  NMAX,J  +  3  ♦  MMAX  *  NMAX)  =  EVOMASS 

MASSd  +  MMAX  ♦  NMAX.J  +  4  *  MMAX  *  NMAX)  =  GVOMASS 

MASSd  -t-  2  *  MMAX  *  NMAX.J)  =  AWMASS 

MASSd  +  2  *  MMAX  *  NMAX.J  +  MMAX  *  NMAX)  =  BWMASS 

MASSd  +  2  *  MMAX  *  NMAX.J  +  2  ♦  MMAX  *  NMAX)  =  CWMASS 

MASSd  +  2  *  MMAX  *  NMAX.J  +  3  ♦  MMAX  *  NMAX)  =  EWMASS 

MASSd  +  2  *  MMAX  ♦  NMAX.J  +  4  *  MMAX  ♦  NMAX)  =  GWMASS 

MASSd  3  *  MMAX  *  NMAX.J)  =  AJXMASS 

MASSd  +  3  *  MMAX  *  NMAX.J  +  MMAX  ♦  NMAX)  =  BJXMASS 

MASSd  +  3  ♦  MMAX  *  NMAX.J  +  2  ♦  MMAX  *  NMAX)  =  CJXMASS 

MASSd  +  3  *  MMAX  *  NMAX.J  +  3  ♦  MMAX  ♦  NMAX)  =  EJXMASS 

MASSd  +  3  ♦  MMAX  *  NMAX.J  +  4  ♦  MMAX  *  NMAX)  =  GJXMASS 


C 
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MASSd  +  4  ♦  MMAX  ♦  MMAX.J)  =  AJYMASS 
MASSd  +  4  ♦  MMAX  ♦  NMAX,J  +  MMAX  *  NMAX)  =  BJYMASS 

MASSd  +  4  *  MMAX  ♦  NMAX,J  +  2  *  MMAX  *  NMAX)  =  CJYMASS 

MASSd  +  4  ★  MMAX  *  NMAX.J  +  3  *  MMAX  ♦  NMAX)  =  EJYMASS 

MASSd  +  4  *  MMAX  *  NMAX,  J  +  4  *  MMAX  ♦  NMAX)  =  GJYMASS 

C - - - 

J  =  J  +  1 
20  CONTINUE 
1  =  1  +  1 
J  =  1 

10  CONTINUE 

C - 

C  CALL  THE  IMSL  LIBRARY  SUBROUTINE.  USE  THE  MASS  AND  STIFFNESS 

C  MATRICES  AS  INPUT  AND  FIND  THE  EIGENVALUES  AND  EIGENVECTORS. 

CALL  DGVCRG(MSIZE, STIFF,  MSIZE, MASS, MSIZE, ALPHA, BETA, EVEC, 
IMSIZE) 

DO  40  I  =  1, MSIZE 
IF<BETAd)  .NE.  0.0)  THEN 
EVALd)  =  ALPHAd)  /  BETAd) 

ELSE 

EVALd)  =  d.OD+30  ,  O.OD+00) 

ENDIF 

40  CONTINUE 

IF(NBUCVIB  .EQ.  1)  THEN 
C 

C  PRINT  OUT  THE  FIRST  10  MODES  FOR  THE  VIBRATION  PROBLEM 
C 

DO  50  I  =  1,10 
REVAL  =  DREAL{  EVALd)) 

AGEVAL  =  DIMAG  (EVALd)) 

IF(ABS(AGEVAL)  .GT.  l.OD-15)  THEN 
WRITE(2,115)  I 

ELSEIF( REVAL  .GT.  l.OD+28)  THEN 
WRITE(2,125)  I 
ELSEIF(REVAL  .LT.  0.0)  THEN 
WRITE(2,120)  I 
ELSE 

OMEGA  =  SORT (REVAL) 

WRITE(2,  130)  I, REVAL, OMEGA 
ENDIF 

50  CONTINUE 
C 

ELSE 

C 

C  PRINT  OUT  THE  CRITICAL  BUCKLING  LOAD.  THE  CRITICAL 

C  BUCKLING  LOAD  IS  THE  EIGENVALUE  WITH  THE  SMALLEST  ABSOLUTE 

C  VALUE. 

C 

DO  55  1—2  MSIZE 

IF(ABS(DIMAG(EVAL(I-1)))  .GT.  l.OD-15)  THEN 

GO  TO  55 

ENDIF 
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IF{ABS(DREAL{EVAL(I)))  .GT.  ABS(DREAL(EVAL( I-l ) ) )  .AND.  ABS< 
1DREAL(EVAL(I-1))>  .LT.  l.OD+28)  THEN 
WRITE<2,220)  DREAL{EVAL< I-l ) ) 

ENDIF 

55  CONTINUE 
C 

ENDIF 

C 

C  PRINT  OUT  THE  1ST  MODE  OF  THE  DEFLECTION,  W(X,Y),  ALONG  THE 
C  MIDLINES  OF  THE  PANEL:  X  =  A/2  AND  Y  =  B/2 
C 

C  PRINT  OUT  THE  W  EIGENVECTOR,  CMN 
C 

II  =  1 

WRITE(2,500) 

WRITE<2.510) 

MNWMIN  =  1  +  2  *  MMAX  ♦  NMAX 
MNWMAX  =  3  ♦  MMAX  ♦  NMAX 
DO  400  I  =  MNWMIN,  MNWMAX 
REVEC(II)  =  DREAL(EVEC<I.  D) 

AGEVEC  =  DIMAG(EVEC(I,  D) 

IF(ABS(AGEVEC)  .GT.  l.OD-15)  THEN 
WRITE(2.520)  I, I I, REVEC( I I ) 

ELSE 

WRITE(2,530)  I,  II, REVEC( II) 

ENDIF 

II  =  II  +  1 
400  CONTINUE 
C 

C  DETERMINE  W(X=A/2,Y) 

C 

ASTEP  =  A  /  50.0 

BSTEP  =  B  /  50.0 

XCOORD  =  A  /  2.0 
YCOORD  =0.0 
WRITE(2, 540) 

WRITE<2,542) 

801  WMODE  =0.0 

JJJ  =  1 

DO  470  M  =  l.MMAX 
DO  472  N  =  1,NMAX 

WMODE  =  WMODE  +  REVEC( JJJ)*SIN(M*PI*XCOORD/A)*SIN(N*PI*YCOOR 
ID/B) 

JJJ  =  JJJ  +  1 
472  CONTINUE 
470  CONTINUE 

WRITE(2, 550)  YCOORD, WMODE 
YCOORD  =  YCOORD  +  BSTEP 
IF (YCOORD  .GT.  B)  THEN 
GO  TO  800 
ELSE 

GO  TO  801 


ENDIF 


C 

800  YCOORD  =  B  /  2.0 
C 

C  DETERMINE  W(X,Y=B/2) 

C 

XCOORD  =0.0 
WRITE{2,560) 

WRITE(2,570) 

810  WMODE  =0.0 
JJJ  =  1 

DO  480  M  =  1,  MMAX 
DO  482  N  =  1,  NMAX 

WMODE  =  WMODE  +  REVEC( JJJ)*SIN(M*PI*XCOORD/A)*SIN(N*PI*YCOOR 
ID/B) 

JJJ  =  JJJ  +  1 
482  CONTINUE 
480  CONTINUE 

WRI TE ( 2 , 5 50 ) XCOORD ,  WMODE 
XCOORD  =  XCOORD  +  ASTEP 
IF (XCOORD  .GT.  A)  THEN 
GO  TO  850 
ELSE 

GO  TO  810 
ENDIF 

C - 

115  FORMAT(/, 9X, 13, IIX, ’EIGENVALUE  IS  COMPLEX' ) 

120  FORMAT(/.  9X,  13,  IIX,  ’EIGENVALUE  IS  NEGATIVE’ ) 

125  F0RMAT(/,9X, 13, 1 IX, ’EIGENVALUE  IS  INFINITE’) 

130  F0RMAT(/,9X, 13, 10X,D20. 13,12X,D20. 13) 

200  F0RMAT(/,9X,  13,  10X,D20.  13) 

220  FORMAT<//, 5X, ’CRITICAL  BUCKLING  LOAD  =  ’,1X,D20.13) 

500  FORMAT(//, 5X, ’W  EIGENVECTOR,  CMN,  FOR  1ST  MODE’) 

510  F0RMAT(//,5X, ’M,N’,10X, ’CMN’) 

520  F0RMAT(/,5X, 14, 2X, 14, 12X,D20. 13, 3X, ’COMPLEX’ ) 

530  FORMAT(/, 5X, 14, 2X, 14, 12X,D20. 13) 

540  F0RMAT(//,5X, ’DEFLECTION,  W<X=A/2,Y)') 

542  FORMATC//, 5X, ’Y  ( IN. ) ’ , lOX, ’W( A/2, Y)  (IN.)’) 

550  FORMAT(/,5X,F6.2,  11X,E15.8) 

560  F0RMAT(//,5X, 'DEFLECTION,  W(X,Y=B/2)’) 

570  F0RMAT(//,5X, ’X  ( IN. ) ’ , lOX, ’W(X, B/2)  (IN.)’) 

850  RETURN 
END 
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The  next  listing  is  the  code  for  clamped  boundary  conditions. 
As  stated  in  chapter  III,  the  only  part  of  the  program  that  is 
boundary  condition  dependant  is  subroutine  "GALERK"  (with  the 
exception  of  a  few  format  statements  in  the  main  program) . 
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nnn 


i(c#:(c)|c4c)tc  Clamped  Boundary  Condi'tion 


SUBROUTINE  GALERK(PI. R, H, A, B, All, A12, A22, A16, A26, A66, A44, A45 

1,  A55,D11,D12,D22.D16.D26,D66,D44,D45,D55,F11,F12,F22,F16,F26 

2, F66,F44,F45,F55.H11.H12,H22,H16,H26,H66, Jll,  J12,  J22,  J16,  J26 

3,  J66, NBUCVIB, MMAX, MSIZE, RHO,  STIFF, MASS,  BETA,  ALPHA,  EVAL,  EVEC, 
4MSIZESQ,REVEC) 

THIS  SUBROUTINE  GENERATES  THE  GALERKIN  EQUATIONS  AND  FORMS 
THE  MASS  AND  STIFFNESS  MATRICES.  THEN  IT  CALLS  DGVCRG,  AN 
IMSL  SUBROUTINE  WHICH  SOLVES  THE  EIGENVALUE  PROBLEM: 

[STIFF] {X}  =  {OMEGA^2  OR  NIBAR) [MASS] {X} . 

DOUBLE  PRECISION  PI, R, H, A. B, All, A12, A22,  A16, A26, A66,  A44, 
1A45,  A55,D11,D12,D22,D16.D26,D66,D44,D45,D55,F11,F12,F22,F16, 
2F26,F66,F44,F45,F55,H11.H12,H22,H16,H26,H66, Jll, J12, J22. J16, 
3J26, J66, STIFF<MSIZE, MSIZE) , MASS(MSIZE, MSIZE) ,  AUO,  BUO, CUO,  EUO 

4,  GUO. AVO, BVO, CVO, EVO, GVO, AW, BW. CW, EW, GW, AJX, BJX, CJX, EJX, GJX, 
5AJY, BJY, CJY, EJY, GJY, AUOMASS, BUOMASS, CUOMASS, EUOMASS,  GUOMASS, 
6AVOMASS, BVOMASS, CVOMASS,  EVOMASS,  GVOMASS, AWMASS,  BWMASS, CWMASS 
7,  EWMASS,  GWMASS,  AJXMASS,  BJXMASS, CJXMASS, EJXMASS, GJXMASS, AJYMA 
8SS, BJYMASS, CJYMASS, EJYMASS, GJYMASS, RHO, I2BARPR, I3BARPR, I5BAR 
9, 17, II, I4BAR 

INTEGER  P.Q 

C  THESE  VARIABLES  NEEDED  FOR  THE  IMSL  EIGENVALUE  SOLVER. 

DOUBLE  PRECISION  BETA(MSIZE) , REVAL, OMEGA, AGEVAL,  AGEVEC, 
1REVEC(MSI2ESQ) 

DOUBLE  COMPLEX  ALPH A ( MS I ZE ), EVAL (MSIZE ), EVEC (MSIZE, MSIZE) 

C - 

C  NUMBER  OF  TERMS  IN  THE  ADMISSIBLE  FUNCTIONS 
NMAX  =  MMAX 

C  GENERATE  GALERKIN  EQUATIONS 
1  =  1 
J  =  1 

DO  10  P  =  1,MMAX 
DO  10  Q  =  1,NMAX 
DO  20  M  =  1,MMAX 
DO  20  N  =  l.NMAX 

COMPUTE  STIFFNESS  MATRIX  ELEMENTS 

IF  (M  .EQ.  P  .AND.  N  .EQ.  Q)  THEN 
C 

AUO  =  0.0 
BUO  =0.0 
CUO  = 

l-( ( 8*F66+4*F12 ) ♦P*PI**3*Q**2-3*A12*B**2*H**2*P*PI ) /(B*H*»2*R 
1)/12.0 
EUO  = 
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l-( (4*A**2*A66*PI**2*Q**2+4*A11*B**2*P**2*PI**2)*R**2+A**2*D6 
16*PI**2*Q**2)/(A*B*R**2)/16. 0 
GUO  = 

l-( (4*A66+4*A12)*P*PI**2*Q*R**2-D66*P*PI**2*Q)/R**2/16. 0 
AVO  =  0.0 
BVO  =  0.0 
CVO  = 

l-( 4*A»F22*PI**3*Q**3-3*A*A22*B**2*H**2*PI*Q) /{B**2*H**2*R) /I 
12.0 
EVO  = 

l-( (4*A66+4*A12)*P»PI**2*Q*R**2-D66*P*pi**2*Q)/R**2/16. 0 
GVO  = 

l-(  (  4*A**2*A22*PI**2*Q**2+4*A66*B*»2*P**2*PI**2  )  *R**2+B**2Jt£D6 
16*P**2*PI**2)/(A*B*R**2)/16. 0 
AW  =  0.0 
BW  =  0.0 
CW  = 

l-( ( 16*A**4*H22*PI**4*Q**4+( (64*A**2*B**2*H66+32*A»»2*B**2*H1 
12)*P**2*PI»*4+(9*A**4»A44*B**2*H**4-72*A**4*B**2*D44*H**2+14 
14*A**4*B**2*F44) *PI**2 ) *Q**2+16*B**4*H1 1*P*»4*PI**4+ ( 9*A**2* 
1A55*B**4*H**4-72*A**2*B**4*D55*H**2+144*A**2>*'B**4*F55  )  ♦P**2* 
lPI**2)*R**2+16>*:A**4*J22*PI**4»Q>«t*4+(  16*A**2*B**2*J66*P**2*PI 
1**4-24*A**4*B*»2*F22*H**2*PI»*2)*Q**2+9*A**4*A22*B**4*H**4)/ 
1  ( A**3*B**3*H*»4>kR**2 ) /36 . 0 
EW  = 

1-<<8*F66+4*F12)*P*PI»*3*Q**2-3*A12*B**2*H**2*P*PI)/(B*H**2*R 
1)/12. 0 
GW  = 

1-<4*A*F22*PI**3*Q**3-3*A*A22*B**2*H»*2*PI*Q)/(B**2*H^»2*R)/1 
12.0 
AJX  = 

l-( ( ( 16*A*»2»H66+9*A**2*D66*H**4-24*A**2*F66*H**2)*PI**2*Q**2 
l+( 16*B**2*Hll+9*B**2*Dll*H**4-24*B**2*Fll*H**2)*P**2*PI**2+9 
1*A**2*A55*B**2*H**4-72*A**2*B**2*D55*H**2+144*A**2*B**2*F55) 
1*R**2+( 16*A**2*J66-24*A**2*H**2*H66+9*A**2*F66*H**4) ♦PI**2*Q 
l**2)/(A*B*H**4*R**2)/36. 0 
BJX  = 

l-( ( ( 16*A**2*H26+9*A**2*D26»H**4-24*A**2*F26*H**2)*PI**2*Q**2 
l+{ 16*B**2*H16+9*B**2*D16*H**4-24*B**2*F16*H**2 ) ♦P**2*PI**2+9 
1*A**2*A45*B**2*H*’*'4-72*A**2*B**2*D45*H*»2+144*A**2*B**2*F45) 
1*R**2+< 16*A**2*J26-24*A**2*H**2*H26+9*A**2*F26*H**4)*PI**2*Q 
l»*2)/(A*B*H**4*R**2)/36. 0 
CJX  =  0.0 
EJX  =  0.0 
GJX  =  0.0 
AJY  = 

l-( ( ( 16*A**2*H26+9»A**2*D26*H**4-24*A**2*F26*H**2)*PI**2*Q**2 
l+( 16*B**2*H16+9*B**2*D16*H**4-24*B**2*F16*H**2 ) *P**2*PI**2+9 
1*A**2*A45*B**2*H**4-72*A**2*B**2*D45*H»*2+144*A**2*B**2*F45 ) 
1*R*!*;2  +  (  16*A**2*J26-24*A**2*H**2*H26+9*A**2*F26*H*it'4)  *PI**2*Q 
l**2)/(A*B*H**4*R**2)/36. 0 
BJY  = 
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l-( < { 16*A**2*H22+9*A**2*D22*H**4-24*A**2*F22*H**2)»PT**2*Q**2 
l+( 16*B**2»H66+9*B**2*D66»H**4-24*B**2*F66*H**2)*P**2*PI**2+9 
1*A**2*A44*B**2*H**4-72*A**2*B**2*D44*H**2+144*A**2*B**2*F44) 
l*R**2+{ ie*A**2*J22-24*A**2*H**2»H22+9*A**2»F22*H**4)*PI**2*Q 
1*»2)/(A*B*H**4*R**2)/36. 0 
CJY  =  0.0 
EJY  =  0.0 
GJY  =  0.0 
C 

ELSEIF  (M  .EQ.  P  .AND.  M0D(N  +  Q, 2)  .NE.  0)  THEN 
C 

AUO  = 

1-(3*D16*H**2-4*F16)*N*P»PI*Q/(  (2*H*»2>»=Q**2-2»H**2*N**2)*R) 
BUO  = 

l-( (3*D66+6*D12)*H**2-4*F66-8*F12)*N*P*PI*Q/( (6*H**2*Q**2-6*H 
l)tt*2*N**2)*R) 

CUO  =  0.0 
EUO  =  0.0 
GUO  =  0.0 
AVO  = 

l-( (6*A**2*D26*H**2-8*A**2*F26)*N*PI*Q**2+(4*B**2*F16-3*B**2* 
1D16*H**2 ) ♦N*P**2*PI ) /<  < 6*A*B*H*»2*Q**2-6*A*B*H**2*N**2 ) *R) 
BVO  = 

l-{ (6*A*»2*D22*H**2-8*A**2*F22)*N*PI*Q**2+(4*B*»2*F66-3*B**2* 
1D66*H**2 ) ♦N*P**2*PI ) /( <  6*A*B*H**2*Q**2-6*A*B*H**2*N**2 ) ♦R) 
CVO  =  0.0 
EVO  =  0.0 
GVO  =  0.0 
AW  = 

1  ( ( ( ( 48»B»*2*H16-36*B**2*F16*H**2 )  *N»Pt*2  + (16*A=*'*2*H26-12*A** 
12*F26*H**2 ) *N**3 ) *PI*»2+( 9»A**2*A45*B»*2»H**4-72*A»*2*B**2*D 
145*H**2+144*A**2*B**2*F45)*N)*Q*R**2+( ( 16»A**2*J26-12*A**2*H 
1**2*H26)*N**3»PI**2+(9*A**2*B»*2*D26*H**4-12*A**2*B**2*F26*H 
1*»2 ) »N ) *Q) /( ( 9*A»B**2*H**4*Q**2-9*A*B**2*H**4*N**2 ) ♦R**2 ) 

BW  = 

1( ( { {32*B**2*H66+16*B**2*H12+{-24*B**2*F66-12*B**2*F12)*H**2) 
l*N*P**2+( 16*A**2*H22-12*A**2*F22*H**2)*N**3)*PI**2+(9*A**2*A 
144*B**2*H**4-72*A**2*B**2*D44*H**2+144*A**2*B**2*F44 ) ♦N ) *Q*R 
l**2+( ( 16*A**2*J22-12*A**2*H**2*H22)*N**3*PI**2+(9*A**2*B**2* 
1D22*H**4-12*A**2*B»*2*F22*H**2)*N>*Q>/( ( 9*A*B**2*H**4*Q**2-9 
1 ♦A*B**2*H**4*N*»2 ) ♦R**2 ) 

CW  =  0.0 
EW  =  0.0 
GW  =  0.0 
AJX  =  0.0 
BJX  =  0.0 
CJX  = 

l-( ( ({48*B**2»H16-36*B**2*F16*H**2)*N*P**2+{ 16*A**2*H26-12*A* 
l*2*F26*H**2)*N**3)*PI**2+( 9^A**2*A45*B**2*H**4-72*A**2*B**2* 
lD45*H**2+144*A**2*B**2*F45)’>^N)*Q*R**2  +  (  ( 16*A**2*J2B-12*A**2* 
1H**2*H26)*N**3*PI**2+(9*A**2*B**2*D26*H**4-12*A**2*B**2*F26* 
1H**2 ) *N) *Q) /( ( 9*A*B**2*H**4*Q**2-9*A*B**2*H»*4*N**2 ) *R**2 ) 


152 


EJX  = 

1  <  3*D16*H**2-4*F16 ) *N*P*PI*Q/( ( 2*H**2*Q**2-2*H**2*N**2 ) ♦R) 

GJX  = 

l-( ( 3*B**2*D16*H**2-4*B**2*F16 ) ♦P**2+ ( 8*A**2*F26-6*A*»2*D26*H 
1**2 ) ♦N**2  > ♦PI*Q/ ( { 6*A*B*H**2*Q**2-6*A*B*H**2*N»*2 ) *R) 

AJY  =  0.0 
BJY  =  0.0 
CJY  = 

l-< ( ( (32*B**2*H66+16*B**2»H12+(-24*B**2*F66-12*B**2*F12)*H**2 
1 ) ♦N*P**2+( 16*A**2*H22-12*A**2*F22*H**2 ) ♦N**3 ) *PI**2+( 9*A**2* 
lA44*B**2*H**4-72*A**2»B**2*D44i*:H**2  +  144»A**2*B**2*F44)*N)*Q* 
lR**2+( ( 16*A**2*J22-12*A**2*H**2*H22)*N**3*PI**2+(9*A**2*B»*2 
l*D22*H**4-12*A**2*B**2*F22»H**2)*N)*Q)/( ( 9*A*B*»2*H**4*Q**2- 
19*A*B**2*H**4*N**2 ) *R**2 ) 

EJY  = 

1 ( ( 3*D66+6*D12 ) ♦H»*2-4*F66-8*F12 ) *N*P*PI»Q/( ( 6*H**2*Q**2-6*H* 
l!«t2*N**2 )  *R) 

GJY  = 

l-( (3*B**2*D66*H**2-4*B**2*F6e)*P**2+(8*A**2*F22-6*A**2*D22*H 
)  ♦N**2 )  ♦PI*Q/(  ( 6*A*B*H**2*Q**2-6*A*B»H**2*N**2  )  *R) 

ELSEIF(M0D(M  +  P,2)  .NE.  0  .AND.  N  .EQ.  Q)  THEN 

AUO  = 

l-<  3*A*D66»H**2-4*A*F66 ) ♦M*PI*Q**2/( ( 2*B*H**2*P**2-2*B*H**2*M 
1**2)*R) 

BUO  = 

1- ( 3*A*D26*H**2-4*A*F26 ) *M*PI*Q**2/( ( 2*B*H**2*P**2-2*B*H**2*U 
1**2)*R) 

CUO  =  0.0 
EUO  =0.0 
GUO  =  0.0 
AVO  = 

l-( 3*D66*H**2-4*F66 ) *M*P*PI*Q/( ( 6*H**2*P**2-6*H**2*M**2 ) ♦R) 
BVO  = 

l-{  3*D26*H**2-4*F26 )  *M*P*PI*Q/(  ( 6*H**2*P**2-6*H**2*M>*:*2 )  *R) 
CVO  =  0.0 
EVO  =0.0 
GVO  =  0.0 
AW  = 

1( ( (32*A**2*H66+16*A**2*H12+(-24*A**2*F66-12*A*»2*F12)*H»*2)» 
lM*P*PI**2*Q**2+( 16*B**2*Hll-12*B**2*Fll*H**2)*M**3*P»PI**2+( 
19*A**2*A55*B»*2*H**4-72*A**2*B*»2*D55*H**2+144*A**2*B**2*F55 
1 )  *M*P)  *R**2  +  (  16*A**2*J66-12*A**2*H**2*H66 )  ♦m*P*PI*»c2*Q**2  )  /  ( 
1 ( 9*A**2*B*H**4*P**2-9*A**2*B*H**4*M**2 ) ♦R**2 ) 

BW  = 

1( ( (48*A*»2*H26-36*A**2*F26*H**2)*M*P*PI**2*Q**2+( 16*B**2»H16 
1-12*B**2*F16*H»*2 )*M**3*P*PI**2+( 9»A**2*A45»B**2*H**4-72*A*» 
12*B*»2»D45*H**2+144*A**2*B**2*F45)*M*P)*R**2+( 16*A**2*J26-12 
1*A**2*H*»2*H26 ) ♦M»P*PI**2*Q**2 ) /< ( 9*A*»2*B*H**4*P**2-9*A**2* 
1B*H**4*M**2 ) *R**2 ) 

CW  =  0.0 


EW  =  0.0 
GW  =  0.0 
AJX  =  0.0 
BJX  =  0.0 
CJX  = 

l-({  (32*A*»2*H66  +  16*A**2>*:H12+(-24*A*»2*F66-12*A**2*F12)*H**2) 
1*M*P*PI**2*Q**2+{ 16*B*»2*H11-12*B»*2*F11*H**2)*M**3*P*PI**2+ 
1 ( 9*A**2*A55*B**2*H**4-72*A**2*B**2*D55*H**2+144*A**2*B**2*F5 
15 ) ♦M*P) ♦R**2+( 16*A**2*J66-12*A**2*H**2*H66 ) ♦M*P*PI**2*Q**2 ) / 
1 ( ( 9*A**2*B*H**4*P**2-9*A**2*B*H**4*M**2 ) *R**2 ) 

EJX  = 

1 ( 3*A*D66*H**2-4*A*F66 ) ♦P*PI*Q**2/( ( 2*B*H**2*P**2-2*B*H**2*M* 
1*2)*R) 

GJX  = 

1 ( 3*D66*H**2-4*F66 ) »M*P»PI*Q/{ (6*H**2*P*^2-6*H**2*M**2 ) *R) 

AJY  =  0.0 
BJY  =  0.0 
CJY  = 

l-( ( (48*A**2*H26-36»A**2*F26*H*»2)*M*P*PI**2*Q**2+( 16*B**2*H1 
16-12*B**2*F16*H**2)*M**3*P*PI**2+(9*A**2*A45*B**2*H**4-72*A* 
l*2*B**2*D45*H**2+144*A**2*B**2*F45)*M*P)*R**2+( 16*A**2*J26-1 
12*A**2*H**2*H26 ) ♦M*P*PI**2*Q**2 ) /( ( 9*A**2»B*H**4*P**2-9*A**2 
1 ♦B*H**4*M**2 ) *R**2 ) 

EJY  = 

1 ( 3*A*D26*H»*2-4*A*F26 ) ♦P*PI*Q**2/( ( 2*B*H**2*P**2-2*B*H**2*M* 
1*2)*R) 

GJY  = 

l(3»D26*H**2-4*F26)*M*P*PI*Q/<  (6>*;H**2*P**2-6*H**2*M**2)*R) 

C 

ELSEIF(MOD(M  +  P,2)  .NE.  0  .AND.  MOD(N  +  Q, 2)  .NE.  0)  THEN 
C 

AUO  =0.0 
BUO  =  0.0 
CUO  = 

1( ( 16*B**2*F16*M*N*P**2+24*A**2*F26*M*N**3+8*B**2*F16*M**3*N) 
1*PI**2-12*A**2»A26*B**2*H**2*M*N)»Q/( ( ( 3*A*B**2*H**2*P**2-3* 
1A*B**2*H**2*M**2)*PI*Q**2+(3*A*B**2*H**2*M**2*N**2-3*A*B**2* 
1H*»2*N**2*P**2 ) ♦PI ) ♦R) 

EUO  = 

l(4^A16^N^P^^2+4^A16^M^^2^N)^Q/< (P^^2-M^*2 ) ♦Q**2-N^^2*P^^2+M^ 
1*2^N^^2) 

GUO  = 

1 ( 4*A16^B^*2*M^P**2+4^A**2*A26^M*N**2 ) ♦Q/( ( A*B*P^+2-A*B*M**2 ) 
1^Q^*2-A^B^N^^2^P^^2+A^B^M^^2^N^^2) 

AVO  =  0.0 
BVO  =  0.0 
CVO  = 

1( 16^A^^2^F26^M^N^P^PI^^2^Q^^2+(8^A^^2^F26^M^N^^3-8^B^*2^F16^ 
^♦♦3^N)^P^PI^^2-12^A^^2^A26^B^^2^H^^2+M^N^P)/( ( ( 3^A^^2^B^H^^ 
12^P^^2-3^A*^2^B*H^^2*M^*2 ) ♦PI^Q^^2+( 3^A**2*B*H^^2*M^^2^N**2- 
13^A^^2^B^H^^2^N^^2^P^^2 ) ♦PI ) ♦R) 

EVO  = 
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1(4*A**2*A26*N*P*Q^*2+4*A16*B**2*M**2*N*P)/( ( A*B*P**2-A*B*M** 
12 ) *Q**2-A*B*N**2*P**2+A*B*M**2*N**2 ) 

GVO  = 

l(4*A26*M*P*Q**2+4*A26*M*N**2*P)/< (P**2-M**2 ) ♦Q**2-N**2*P**2+ 
1M**2*N**2) 

AW  =  0.0 
BW  =  0.0 
CW  = 

1 ( ( ( 256*A**2*H26*M*N**3+256*B**2*H16*M**3*N ) *P*PI**2+( 72*A**2 
1*A45*B**2*H**4-576*A**2*B**2*D45*H»*2+1152*A**2*B**2*F45)*M* 
1N*P)*Q*R**2+(128*A**2*J26*M*N*»3*P*PI**2-96*A**2*B**2*F26»H* 
l»2*M*N*P)*Q)/( ( (9*A**2»B**2*H**4*P**2-9*A**2*B**2*H**4*M**2) 
l*Q)(c*2-9*A**2*B**2*H*^4*N**2*P**2+9*A**2*B**2*H**4*M**2*N**2 ) 
1*R**2) 

EW  = 

1 ( ( 8*A**2*F26*N**3+8*B**2*F16*M**2*N ) *P*PI**2-4*A**2*A26»B**2 
l*H**2*N*P)*Q/(  ( (A*B**2*H**2*P**2-A*B**2*H**2*M**2)*PI*Q**^2  +  ( 
1A*B**2*H**2*M**2*N»*2-A*B**2*H**2*N**2*P**2 ) *PI ) *R) 

GW  = 

1(  (24*A*>t'2*F26*M*N**2-8*B**2*F16*M**3)»P*PI**2-12*A**2*A26*B* 
1*2*H**2*M»P) *Q/( ( ( 3*A**2*B*H**2*P*»2-3*A**2*B*H**2*M**2 ) ♦PI* 
lQ**2+( 3*A**2*B*H**2*M**2*N**2-3*A**2*B*H**2*N**2*P**2 ) ♦PI ) *R 
1) 

AJX  = 

1 ( 128*H16+72*D16*H**4-192*F16*H**2 ) ♦M*N*P*Q/( ( 9*H**4*P**2-9*H 
1**4*M**2 ) *Q**2-9*H**4*N**2*P**2+9*H**4*M**2*N**2 ) 

BJX  = 

1 ( 64*H66+64*H12+( 36*D66+36*D12 ) ♦H**4+( -96*F66-96*F12 ) ♦H**2 ) ♦M, 
1*N*P*Q/( {9*H**4*P**2-9*H**4*M**2)*Q**2-9*H**4*N**2*P**2+9*H* 
1*4*M**2*N**2 ) 

CJX  =  0.0 
EJX  =  0.0 
GJX  =  0.0 
AJY  = 

1 ( 64*H66+64*H12+ ( 36*D66+36*D12 ) ♦H**4+ ( -96*F66-96*F12 ) ♦H**2 ) ♦M 
1*N*P*Q/( {9*H**4*P**2-9*H**4*M**2)*Q**2-9*H**4*N**2*P**2+9*H* 
1*4*M**2*N**2 ) 

BJY  = 

1 ( 128*H26+72*D26*H**4-192*F26*H**2 ) ♦M*N*P*Q/( { 9*H**4*P**2-9*H 
1**4»m**2 ) ♦Q**2-9*H**4*N**2*P**2+9*H**4*M**2*N**2 ) 

CJY  =  0.0 
EJY  =  0.0 
GJY  =0.0 
C 

ELSE 

C 

AUO  =  0.0 
BUO  =  0.0 
CUO  =  0.0 
EUO  =  0.0 
GUO  =  0.0 
AVO  =  0.0 
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BVO  =  0.0 
CVO  =  0.0 
EVO  =0.0 
GVO  =  0.0 


AW 
BW 
CW 
EW 
GW 
AJX  = 
BJX  = 
CJX  = 
EJX  = 
GJX  = 
AJY  = 
BJY  = 
CJY  = 
EJY  = 
GJY  = 
END  IF 


0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.  0 
0.  0 
0.0 
0.0 
0.0 
0.0 
0.  0 


STORE  THESE  TERMS  IN  THE  STIFFNESS  MATRIX 


STIFFd, 
STIFFd, 
STIFFd,  J 
STIFFd,  J 
STIFFd,  J 
STIFFd 
STIFFd 
STIFFd 
STIFFd 
STIFFd 


J)  =  AUO 

J  +  MMAX  ♦  NMAX)  =  BUO 

2  ♦  MMAX  *  NMAX)  =  CUO 

3  *  MMAX  ♦  NMAX)  =  EUO 

4  ♦  MMAX  ♦  NMAX)  =  GUO 


+ 

+ 

+ 

MMAX 

MMAX 

MMAX 

MMAX 

MMAX 


♦  NMAX,J)  =  AVO 

♦  NMAX,J  +  MMAX  *  NMAX)  =  BVO 

♦  NMAX,J  +  2  ♦  MMAX  ♦ 

♦  NMAX,J  +  3  *  MMAX  * 

♦  NMAX,J  +  4  *  MMAX  * 


NMAX) 

NMAX) 

NMAX) 


CVO 

EVO 

GVO 


STIFFd 

+ 

2 

* 

MMAX 

* 

NMAX, J) 

=  AW 

STIFFd 

+ 

2 

* 

MMAX 

* 

NMAX,  J 

+ 

MMAX  *  NMAX)  =  BW 

STIFFd 

+ 

2 

* 

MMAX 

* 

NMAX, J 

+ 

2  * 

MMAX 

♦ 

NMAX)  = 

CW 

STIFFd 

+ 

2 

* 

MMAX 

* 

NMAX,  J 

+ 

3  ♦ 

MMAX 

* 

NMAX)  = 

EW 

STIFFd 

+ 

2 

* 

MMAX 

* 

NMAX, J 

+ 

4  ♦ 

MMAX 

* 

NMAX)  = 

GW 

STIFFd 

+ 

3 

* 

MMAX 

♦ 

NMAX, J) 

=  AJX 

STIFFd 

+ 

3 

* 

MMAX 

* 

NMAX, J 

+ 

MMAX  ♦  NMAX)  =  BJX 

STIFFd 

+ 

3 

♦ 

MMAX 

* 

NMAX, J 

+ 

2  * 

MMAX 

♦ 

NMAX)  = 

CJX 

STIFFd 

+ 

3 

« 

MMAX 

* 

NMAX, J 

+ 

3  ♦ 

MMAX 

* 

NMAX)  = 

EJX 

STIFFd 

+ 

3 

* 

MMAX 

♦ 

NMAX, J 

+ 

4  ♦ 

MMAX 

♦ 

NMAX)  = 

GJX 

STIFFd 

+ 

4 

♦ 

MMAX 

♦ 

NMAX, J) 

=  AJY 

STIFFd 

+ 

4 

* 

MMAX 

♦ 

NMAX, J 

+ 

MMAX  *  NMAX)  =  BJY 

STIFFd 

+ 

4 

♦ 

MMAX 

♦ 

NMAX, J 

+ 

2  ♦ 

MMAX 

NMAX)  = 

CJY 

STIFFd 

+ 

4 

» 

MMAX 

* 

NMAX,  J 

+ 

3  ♦ 

MMAX 

♦ 

NMAX)  = 

EJY 

STIFFd 

4 

♦ 

MMAX 

♦ 

NMAX,  J 

+ 

4  ♦ 

MMAX 

* 

NMAX)  = 

GJY 

COMPUTE  MASS  MATRIX  ELEMENTS 


FIRST  CALCULATE  THE  MASS  MOMENTS  OF  INERTIA. 
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I2BARPR  =  RHO  ♦  H**3  /  (15.0  ♦  R) 

I3BARPR  =  RHO  *  H**3  /  (60.0  *  R) 

I5BAR  =  RHO  ♦  H**3  ♦  4.  0  /  315.0 
17  =  RHO  *  H**7  /  448.0 
II  =  RHO  ♦  H 

I4BAR  =  RHO  *  H**3  ♦  17.0  /  315.0 
AUOMASS  =0.0 
BUOMASS  =0.0 
CUOMASS  =0.0 
EUOMASS  =0.0 
GUOMASS  =0.0 
AVOMASS  =0.0 
EVOMASS  =0.0 
GVOMASS  =0.0 
EWMASS  =0.0 
GWMASS  =0.0 
BJXMASS  =0.0 
EJXMASS  =0.0 
GJXMASS  =0.0 
AJYMASS  =0.0 
EJYMASS  =0.0 
GJYMASS  =0.0 
C 

IF(NBUCVIB  .EQ.  1)  THEN 
C 

C  VIBRATIONS  PROBLEM  -  WE  ARE  LOOKING  FOR  THE  NATURAL 
C  FREQUENCIES 

IF(M  .EQ.  P  .AND.  N  .EQ.  Q)  THEN 
CVOMASS  =  -1.0  ♦  ( 
l-A*I3BARPR*PI*Q/4. 0  ) 

CWMASS  =  -1.0  ♦  ( 

1 ( 16*A**2*I7*PI**2*Q**2+16*B**2*I7*P**2*PI**2+9*A»*2*B**2»H** 
14*Il)/(A*B*H*»4)/36.0  ) 

AJXMASS  =  -1.0  *  ( 
lA*B*I4BAR/4.0  ) 

BJYMASS  =  -1.0  ♦  ( 
lA*B*I4BAR/4.  0  ) 

BVOMASS  =0.0 
BWMASS  =0.0 
CJYMASS  =0.0 
AWMASS  =0.0 
CJXMASS  =0.0 

ELSEIF(M  .EQ.  P  .AND.  MOD(N  +  Q, 2)  .NE.  0)  THEN 
BVOMASS  =  -1.0  ♦  ( 

1-A*B»I2BARPR*N/(PI>*:Q**2-N**2*PI)  ) 

BWMASS  =  -1.0  *  ( 

1A*I5BAR*N*Q/(Q**2-N**2)  ) 

CJYMASS  =  -1.0  ♦  ( 

1-A*I5BAR*N*Q/(Q**2-N**2)  ) 

CVOMASS  =0.0 
CWMASS  =0.0 
AJXMASS  =0.0 
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BJYMASS  =0.0 
AWMASS  =0.0 
CJXMASS  =0.0 

ELSEIF(M0D(M  +  P,2)  .NE.  0  .AND.  N  .EQ..Q)  THEN 
AWMASS  =  -1.0  *  { 

1B*I5BAR*M*P/(P**2-M**2)  ) 

CJXMASS  =  -1.0  *  ( 

1-B*I5BAR*M*P/(P**2-M**2)  ) 

CVOMASS  =0.0 
CWMASS  =0.0 
AJXMASS  =0.0 
BJYMASS  =0.0 
BVOMASS  =0.0 
BWMASS  =0.0 
CJYMASS  =  0.0 
ELSE 

BVOMASS  =0.0 
CVOMASS  =0.0 
AWMASS  =0.0 
BWMASS  =0.0 
CWMASS  =0.0 
AJXMASS  =0.0 
CJXMASS  =0.0 
BJYMASS  =0.0 
CJYMASS  =0.0 
END  IF 

ELSE 

BUCKLING  PROBLEM  -  WE  ARE  LOOKING  FOR  THE  CRITICAL  BUCKLING 
LOADS 

BVOMASS  =0.0 
CVOMASS  =0.0 
AWMASS  =0.0 
BWMASS  =0.0 
AJXMASS  =0.0 
CJXMASS  =0.0 
BJYMASS  =0.0 
CJYMASS  =0.0 

IF(M  .EQ.  P  .AND.  N  .EQ.  Q)  THEN 
CWMASS  =  -1.0  *  ( 

1_B*p**2*PI**2/A/4. 0  ) 

ELSE 

CWMASS  =0.0 
END  IF 

ENDIF 


STORE  THESE  TERMS  IN  THE  MASS  MATRIX 


MASSd.J)  =  AUOMASS 

MASSd.J  +  MMAX  *  NMAX)  =  BUOMASS 
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MASS{I,J  +  2  *  MMAX  *  NMAX)  =  CUOMASS 

MASSd.J  +  3  *  MMAX  ♦  NMAX)  =  EOOMASS 

MASS(I,J  +  4  *  MMAX  *  NMAX)  =  GUOMASS 

MASSd  +  MMAX  ♦  NMAX,J)  =  AVOMASS 

MASSd  +  MMAX  *  NMAX.J  +  MMAX  ♦  NMAX)  =  BVOMASS 

MASSd  +  MMAX  ♦  NMAX.J  +  2  *  MMAX  *  NMAX)  =  CVOMASS 

MASSd  +  MMAX  *  NMAX.J  +  3  ♦  MMAX  ♦  NMAX)  =  EVOMASS 

MASSd  +  MMAX  ♦  NMAX.J  +  4  *  MMAX  *  NMAX)  =  GVOMASS 

MASSd  +  2  *  MMAX  *  NMAX.J)  =  AWMASS 

MASSd  +  2  *  MMAX  ♦  NMAX.J  +  MMAX  ♦  NMAX)  =  BWMASS 

MASSd  +  2  *  MMAX  *  NMAX.J  +  2  »  MMAX  ♦  NMAX)  =  CWMASS 

MASSd  +  2  ♦  MMAX  *  NMAX.J  +  3  ♦  MMAX  *  NMAX)  =  EWMASS 

MASSd  +  2  *  MMAX  *  NMAX.J  +  4  *  MMAX  *  NMAX)  =  GWMASS 

MASSd  +  3  *  MMAX  ♦  NMAX.J)  =  AJXMASS 

MASSd  +  3  ♦  MMAX  ♦  NMAX.J  +  MMAX  *  NMAX)  =  BJXMASS 

MASSd  +  3  *  MMAX  *  NMAX.J  +  2  ♦  MMAX  ♦  NMAX)  =  CJXMASS 

MASSd  +  3  *  MMAX  ♦  NMAX.J  +  3  ♦  MMAX  ♦  NMAX)  =  EJXMASS 

MASSd  +  3  *  MMAX  *  NMAX.J  +  4  ♦  MMAX  *  NMAX)  =  GJXMASS 

MASSd  +  4  *  MMAX  *  NMAX.J)  =  AJYMASS 

MASSd  +  4  *  MMAX  *  NMAX.J  +  MMAX  ♦  NMAX)  =  BJYMASS 

MASSd  +  4  *  MMAX  ♦  NMAX.J  +  2  ♦  MMAX  *  NMAX)  =  CJYMASS 

MASSd  +  4  ♦  MMAX  *  NMAX.J  +  3  *  MMAX  ♦  NMAX)  =  EJYMASS 

MASSd  +  4  ♦  MMAX  *  NMAX.J  +  4  ♦  MMAX  ♦  NMAX)  =  GJYMASS 


J  =  J  +  1 
20  CONTINUE 
1  =  1  +  1 
J  =  1 

10  CONTINUE 


C  CALL  THE  IMSL  LIBRARY  SUBROUTINE.  USE  THE  MASS  AND  STIFFNESS 

C  MATRICES  AS  INPUT  AND  FIND  THE  EIGENVALUES  AND  EIGENVECTORS. 

CALL  DGVCRG(MSIZE,  STIFF.  MSIZE, MASS, MSIZE, ALPHA, BETA, EVEC. 
IMSIZE) 

DO  40  I  =  1, MSIZE 
IF(BETAd)  .NE.  0.0)  THEN 
EVALd)  =  ALPHAd)  /  BETAd) 

ELSE 

EVALd)  =  d.OD+30  ,  O.OD+00) 

ENDIF 

40  CONTINUE 

IF(NBUCVIB  .EQ.  1)  THEN 
C 

C  PRINT  OUT  THE  FIRST  10  MODES  FOR  THE  VIBRATION  PROBLEM 
C 

DO  50  I  =  1, 10 
REVAL  =  DREAL( EVALd  ) ) 

AGEVAL  =  DIMAG ( EVALd ) ) 

IF<ABS(AGEVAL)  .GT.  l.OD-15)  THEN 
WRITE(2,115)  I 

ELSEIF( REVAL  .GT.  l.OD+28)  THEN 
WRITE(2,125)  I 
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n  o  o  i#k  o  o  o  o  o  o  o  ooooo 


ELSEIF(REVAL  .LT.  0.0)  THEN 

WRITE(2,120)  I 

ELSE 

OMEGA  =  SQRT(REVAL) 

WRITE(2,130)  I,REVAL,OMEGA 
ENDIF 

50  CONTINUE 
C 

ELSE 

PRINT  OUT  THE  CRITICAL  BUCKLING  LOAD.  THE  CRITICAL 
BUCKLING  LOAD  IS  THE  EIGENVALUE  WITH  THE  SMALLEST  ABSOLUTE 
VALUE. 

TtO  T  —  9  MQT7Tr 

IF(ABS(DIMAG(EVAL(I-1) ) )  .GT.  l.OD-15)  THEN 
GO  TO  55 
ENDIF 

IF<ABS(DREAL(EVAL(I) ) )  .GT.  ABS(DREAL(EVAL( I-l ) ) )  .AND.  ABS( 
1DREAL(EVAL(I-1) ) )  .LT.  l.OD+28)  THEN 
WRITE(2,220)  DREAL(EVAL( I-l ) ) 

ENDIF 

55  CONTINUE 
ENDIF 

PRINT  OUT  THE  1ST  MODE  OF  THE  DEFLECTION,  W(X,Y),  ALONG  THE 
MIDLINES  OF  THE  PANEL:  X  =  A/2  AND  Y  =  B/2 

PRINT  OUT  THE  W  EIGENVECTOR,  CMN 

II  =  1 

WRITE(2, 500) 

WRITE(2, 510) 

MNWMIN  =  1  +  2  *  MMAX  ♦  NMAX 
MNWMAX  =  3  ♦  MMAX  *  NMAX 
DO  400  I  =  MNWMIN,  MNWMAX 
REVEC(II)  =  DREAL(EVEC(I,1)) 

AGEVEC  =  DIMAG<EVEC{I, 1) ) 

IF(ABS(AGEVEC)  .GT.  l.OD-15)  THEN 
WRITE(2,520)  I, II, REVEC( II) 

ELSE 

WRITE(2,530)  I, II, REVEC( II ) 

ENDIF 

II  =  II  +  1 
00  CONTINUE 


DETERMINE  W(X=A/2,Y) 

ASTEP  =  A  /  50.0 
BSTEP  =  B  /  50.0 
XCOORD  =  A  /  2.0 
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YCOORD  =0.0 
WRITE(2.540) 

WRITE(2,542) 

801  WMODE  =0.0 
JJJ  =  1 

DO  470  M  =  1,MMAX 
DO  472  N  =  l.NMAX 

WMODE  =  WMODE  +  REVEC( JJJ)*SIN{M*PI*XCOORD/A)*SIN(N*PI*YCOOR 
ID/B) 

JJJ  =  JJJ  +  1 
472  CONTINUE 
470  CONTINUE 

WRITE{2,550)  YCOORD, WMODE 
YCOORD  =  YCOORD  +  BSTEP 
IF (YCOORD  .GT.  B)  THEN 
GO  TO  800 
ELSE 

GO  TO  801 
ENDIF 
C 

800  YCOORD  =  B  /  2.0 
C 

C  DETERMINE  W(X,Y=B/2) 

C 

XCOORD  =0.0 
WRITE(2, 560) 

WRITE(2,  570) 

810  WMODE  =0.0 
JJJ  =  1 

DO  480  M  =  1,  MMAX 
DO  482  N  =  1,  NMAX 

WMODE  =  WMODE  +  REVEC( JJJ)*SIN(M*PI*XCOORD/A)*SIN(N*PI*YCOOR 
ID/B) 

JJJ  =  JJJ  +  1 
482  CONTINUE 
480  CONTINUE 

WRITE<2, 550)XCOORD.  WMODE 
XCOORD  =  XCOORD  +  ASTEP 
IF (XCOORD  .GT.  A)  THEN 
GO  TO  850 
ELSE 

GO  TO  810 
ENDIF 

C - 

115  F0RMAT(/,9X, 13, IIX, 'EIGENVALUE  IS  COMPLEX') 

120  F0RMAT(/,9X, 13, IIX, 'EIGENVALUE  IS  NEGATIVE') 

125  FORMAT(/,  9X,  13,  1 IX, 'EIGENVALUE  IS  INFINITE') 

130  F0RMAT(/,9X, 13, 10X,D20. 13, 12X,D20. 13) 

200  F0RMAT(/,9X, 13, 10X,D20. 13) 

220  F0RMAT(//,5X, 'CRITICAL  BUCKLING  LOAD  =  ’,1X,D20.13) 

500  F0RMAT(//,5X, 'W  EIGENVECTOR,  CMN,  FOR  1ST  MODE’) 

510  FORMAT(//, 5X, ’M,N’ , lOX, 'CMN' ) 
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520  F0RMAT(/,5X, 14, 2X, 14, 12X,D20. 13,  3X,  'COMPLEX' ) 
530  FORMAT</,5X,  14,  2X,  14.  12X.D20.  13) 

540  FORMAT(//,5X, 'DEFLECTION,  W(X=A/2,Y)') 

542  FORMAT(//,5X, 'Y  ( IN. ) ' , lOX, 'W( A/2, Y)  (IN.)') 
550  FORMAT(/,5X,F6.2, 11X,E15.8) 

560  FORMAK//,  5X,  'DEFLECTION,  W(X,  Y=B/2) '  ) 

570  FORMAT {//, 5X, 'X  ( IN . ) ' , lOX. ' W(X, B/2 )  (IN.)') 
850  RETURN 
END 
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Appendix  E:  Generating  the  Galerkin 
Equations 


This  appendix  gives  an  example  for  M=N=2  that  shows  how 
Subroutine  "GALERK"  generates  the  stiffness  and  mass/inertia 
matrices  for  simply  supported  and  clamped  boundary  conditions. 
If  M=N=2,  each  degree  of  freedom  is  approximated  by  four  terms, 
and  four  equations  are  generated  for  each  degree  of  freedom. 

The  following  applies  for  simply  supported  boundary 
conditions.  The  procedure  for  the  degree  of  freedom  u^  is 
outlined  as  follows,  starting  with  the  four  nested  sums; 


Equation 

Number 


P  q  m  n 
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